Pensieve header: Plotting the “Bed of Nails” function

Q=Union@@Table[p/q, {q,1,10},{p,0,q}];
Graphics3D[{Table[Tube[{{x,y,0},{x,y,(1/(2Denominator[x]))}}], {x,Q}, {y,Q}]},
{ImageSize->{671.5,Automatic},ViewPoint->{0.239392,-3.37531,-0.000439167},ViewVertical->{0.0384962,-0.589943,0.806526}}]