A073262 Partial sums of first m composite numbers arising in A053781.

4, 10, 18, 63, 132, 3692, 8025, 9200, 13205, 16275, 287382, 1674342, 13852716, 261109560, 509099424, 53226407187, 339194408709, 63673280091408, 230160748303410, 9613333448250222, 14247374595414090, 446710602178803172

Offset: 1

Author

Labos Elemer, Jul 22 2002

Keywords

• nonn

Comments

Required to extend A053781 without recomputation.

Crossrefs

Cf. A053781, A073263.

Programs

Mathematica

c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] t=Table[0, {256}]; s=0; k=0; Do[s=s+c[n]; If[IntegerQ[s/n], k=k+1; t[[k]]=s; Print[s]], {n, 1, 12000000}] t

Formula

a(n)/A053781(n) is an integer.

Extensions

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

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