A072111 Partial sum of pi(k) from k = 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

Author

Robert G. Wilson v, Jul 30 2002

Keywords

• nonn

Crossrefs

Cf. A000720, A073224.

Programs

Mathematica

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