|
%I #6 Oct 01 2013 17:58:02
%S 0,0,1,2,3,4,5,6,7,9,9,11,13,13,14,16,18,19,21,22,23,25,26,28,30,32,
%T 32,34,34,35,40,41,43,44,47,48,49,51,53,55,56,57,60,61,62,63,67,70,72,
%U 72,74,76,76,79,81,83,85,86,88,89,90,93,97,98,99,100,105,107,110,111,112
%N Integer part of the diameters of circles with prime circumferences.
%F Diameter = Circumference/Pi.
%e If C = 5. floor(3/Pi) = 1, the third entry.
%t Floor[#/Pi]&/@Prime[Range[80]] (* _Harvey P. Dale_, Dec 28 2012 *)
%o (PARI) f(n) = forprime(x=1,n,print1(floor(x/Pi)","))
%K nonn
%O 2,4
%A _Cino Hilliard_, Aug 22 2004
|
