OFFSET
1,3
COMMENTS
Geometric mean of primes and their distribution function.
MATHEMATICA
digits=200 a=Table[Floor[Sqrt[Prime[n]*PrimePi[n]]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 03 2004
STATUS
approved