A090485 a(n) = Floor[(Exp[n/PrimePi[n]]-1)/Log[n]].

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.

Links

Table of n, a(n) for n=2..101.

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

Adjacent sequences: A090482 A090483 A090484 * A090486 A090487 A090488

Keyword

nonn

Author

Roger L. Bagula, Feb 01 2004

Status

approved