OFFSET
2,1
COMMENTS
The Shannon white noise signal power of the primes.
REFERENCES
Claude E. Shannon, The Mathematical Theory of Communications, page 104
MATHEMATICA
digits=200 f[n_]=Floor[(Pi/2)*(Exp[3+Prime[n]/n])/Log[n]] a=Table[f[n], {n, 2, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Feb 01 2004
STATUS
approved