login
A072111
Partial sum of pi(k) from k = 1 to 2^n.
0
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
MATHEMATICA
s = 0; k = 1; Do[ While [k <= 2^n, s = s + PrimePi[k]; k++ ]; Print[s], {n, 1, 28} ]
CROSSREFS
Sequence in context: A189427 A355492 A212339 * A173627 A295288 A141397
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 30 2002
STATUS
approved