%I
%S 336,128,168,103,130,93,112,136,166,118,139,107,123,141,163,126,142,
%T 115,128,143,159,129,142,157,174,192,212,170,186,153,166,181,196,213,
%U 232,190,205,222,239,199,213,180,193,206,220,188,199,212,226,240,255,218
%N a(n) = Floor[(Pi/2)*(Exp[3+n/PrimePi[n]])/Log[n]].
%C The white noise signal power of the distribution of the primes.
%D Claude E. Shannon, The Mathematical Theory of Communications, Page 104
%t digits=200 f[n_]=Floor[(Pi/2)*(Exp[3+n/PrimePi[n]])/Log[n]] a=Table[f[n], {n, 2, digits}]
%K nonn
%O 2,1
%A _Roger L. Bagula_, Feb 01 2004
