A073263 Integer quotients of partial sum of first n composite and n (see A053781).

4, 5, 6, 9, 12, 52, 75, 80, 95, 105, 422, 1002, 2841, 12165, 16944, 170997, 430041, 5844984, 11095683, 71438394, 86938085, 485470043, 3341061731, 11203279551, 25053055391, 29329179630, 150058180590, 278953774325, 771115150044

Offset: 1

Author

Labos Elemer, Jul 22 2002

Keywords

• nonn

Crossrefs

Cf. A002808, A053781, A073255-A073262.

Programs

Mathematica

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}]

Formula

a(n)=A073262(n)/A053781(n)

Extensions

a(17) - a(19) from Klaus Brockhaus, Aug 12 2009

a(20)-a(26) from Ray Chandler, Jul 19 2010

a(27)-a(29) from Donovan Johnson, May 23 2011