A072111 Partial sum of Pi(k) from 1 to 2^n.

1, 5, 19, 61, 203, 669, 2279, 7797, 27213, 96111, 343965, 1240617, 4513763, 16546859, 61027965, 226454967, 844181631, 3161518957, 11886015725, 44847272299, 169747439789, 644345294711, 2452231140853, 9354606971985

Offset

1,2

Links

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

Mathematica

s = 0; k = 1; Do[ While [k <= 2^n, s = s + PrimePi[k]; k++ ]; Print[s], {n, 1, 28} ]

Crossrefs

Cf. A000720 & A073224.

Sequence in context: A189427 A355492 A212339 * A173627 A295288 A141397

Adjacent sequences: A072108 A072109 A072110 * A072112 A072113 A072114

Keyword

nonn

Author

Robert G. Wilson v, Jul 30 2002

Status

approved