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
MATHEMATICA
digits=200 f[n_]=Floor[(Pi/2)*(Exp[3+n/PrimePi[n]])/Log[n]] a=Table[f[n], {n, 2, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Feb 01 2004
STATUS
approved