OFFSET
1,2
MATHEMATICA
s = 0; k = 1; Do[ While [k <= 2^n, s = s + PrimePi[k]; k++ ]; Print[s], {n, 1, 28} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 30 2002
STATUS
approved