|
%I #13 Oct 15 2013 22:31:26
%S 4,5,6,9,12,52,75,80,95,105,422,1002,2841,12165,16944,170997,430041,
%T 5844984,11095683,71438394,86938085,485470043,3341061731,11203279551,
%U 25053055391,29329179630,150058180590,278953774325,771115150044
%N Integer quotients of partial sum of first n composite and n (see A053781).
%F a(n)=A073262(n)/A053781(n)
%t s=0; Do[s=s+FixedPoint[n+PrimePi[ # ]+1&, n]; If[IntegerQ[s/n], k=k+1; t[[k]]=s/n; Print[s/n]], {n, 1, 12000000}]
%Y Cf. A002808, A053781, A073255-A073262.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 22 2002
%E a(17) - a(19) from _Klaus Brockhaus_, Aug 12 2009
%E a(20)-a(26) from _Ray Chandler_, Jul 19 2010
%E a(27)-a(29) from _Donovan Johnson_, May 23 2011
|
