login
A089175
a(n) = Floor[Sqrt[Prime[n]*PrimePi[n]]]
0
0, 1, 3, 3, 5, 6, 8, 8, 9, 10, 12, 13, 15, 16, 16, 17, 20, 20, 23, 23, 24, 25, 27, 28, 29, 30, 30, 31, 33, 33, 37, 37, 38, 39, 40, 40, 43, 44, 44, 45, 48, 48, 51, 51, 52, 52, 56, 57, 58, 58, 59, 59, 62, 63, 64, 64, 65, 65, 68, 69, 71, 72, 74, 74, 75, 75, 79, 80, 81, 81, 84, 84
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
Sequence in context: A131209 A116592 A152772 * A265430 A262355 A325459
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 03 2004
STATUS
approved