OFFSET
1,2
COMMENTS
Arithmetic mean of the primes and their distribution function.
MATHEMATICA
digits=200 a=Table[Floor[(Prime[n]+PrimePi[n])/2], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 03 2004
STATUS
approved