A090487 a(n) = Floor[(Pi/2)*(Exp[3+n/PrimePi[n]])/Log[n]].

336, 128, 168, 103, 130, 93, 112, 136, 166, 118, 139, 107, 123, 141, 163, 126, 142, 115, 128, 143, 159, 129, 142, 157, 174, 192, 212, 170, 186, 153, 166, 181, 196, 213, 232, 190, 205, 222, 239, 199, 213, 180, 193, 206, 220, 188, 199, 212, 226, 240, 255, 218

Offset

2,1

Comments

The white noise signal power of the distribution of the primes.

References

Claude E. Shannon, The Mathematical Theory of Communications, Page 104

Links

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

Mathematica

digits=200 f[n_]=Floor[(Pi/2)*(Exp[3+n/PrimePi[n]])/Log[n]] a=Table[f[n], {n, 2, digits}]

Crossrefs

Sequence in context: A204796 A348822 A137522 * A289220 A060664 A261551

Adjacent sequences: A090484 A090485 A090486 * A090488 A090489 A090490

Keyword

nonn

Author

Roger L. Bagula, Feb 01 2004

Status

approved