1,1

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

Cf. A000720.

Sequence in context: A017103 A042407 A042404 this_sequence A059118 A017199 A013779

Adjacent sequences: A073221 A073222 A073223 this_sequence A073225 A073226 A073227

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 20 2002