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,1

Comments

Required to extend A053781 without recomputation.

Links

Table of n, a(n) for n=1..22.

Formula

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

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

Crossrefs

Cf. A053781, A073263.

Sequence in context: A063591 A009912 A318070 * A353189 A362100 A145731

Adjacent sequences: A073259 A073260 A073261 * A073263 A073264 A073265

Keyword

nonn

Author

Labos Elemer, Jul 22 2002

Extensions

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

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

Status

approved