login
A090485
a(n) = Floor[(Exp[n/PrimePi[n]]-1)/Log[n]].
0
9, 3, 4, 2, 3, 2, 3, 3, 4, 3, 4, 3, 3, 4, 4, 3, 4, 3, 3, 4, 4, 3, 4, 4, 5, 5, 6, 5, 5, 4, 5, 5, 5, 6, 7, 5, 6, 6, 7, 6, 6, 5, 5, 6, 6, 5, 6, 6, 6, 7, 7, 6, 7, 7, 7, 8, 8, 7, 8, 6, 7, 7, 8, 8, 9, 7, 8, 8, 9, 7, 8, 7, 7, 8, 8, 8, 9, 8, 8, 8, 9, 8, 8, 8, 9, 9, 10, 8, 9, 9, 9, 10, 10, 11, 11, 10, 10, 11, 11, 10
OFFSET
2,1
COMMENTS
The Shannon signal power of the distribution of the Primes.
REFERENCES
C. E. Shannon, The Mathematical Theory of Communication, page 100.
MATHEMATICA
digits=200 f[n_]=Floor[(Exp[n/PrimePi[n]]-1)/Log[n]] a=Table[f[n], {n, 2, digits}]
CROSSREFS
Sequence in context: A139425 A356637 A191689 * A021521 A011011 A236100
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Feb 01 2004
STATUS
approved