%I #4 Mar 30 2012 17:34:14
%S 203,152,130,176,153,183,163,184,249,220,277,288,257,267,312,358,323,
%T 364,366,335,370,371,404,474,471,434,432,401,401,552,545,573,533,626,
%U 583,608,632,623,646,668,628,712,669,660,623,729,848,833,786,773,791
%N a(n) = Floor[(Pi/2)*(Exp[3+Prime[n]/n])/Log[n]].
%C The Shannon white noise signal power of the primes.
%D Claude E. Shannon, The Mathematical Theory of Communications, page 104
%t digits=200 f[n_]=Floor[(Pi/2)*(Exp[3+Prime[n]/n])/Log[n]] a=Table[f[n], {n, 2, digits}]
%K nonn
%O 2,1
%A _Roger L. Bagula_, Feb 01 2004
|