login
a(n) = Floor[(2*Pi/E)*n^2]
0

%I #4 Mar 30 2012 17:34:14

%S 2,9,20,36,57,83,113,147,187,231,279,332,390,453,520,591,668,748,834,

%T 924,1019,1118,1222,1331,1444,1562,1685,1812,1943,2080,2221,2366,2517,

%U 2672,2831,2995,3164,3337,3515,3698,3885,4077,4273,4474,4680,4891,5106

%N a(n) = Floor[(2*Pi/E)*n^2]

%C Shannon entropy white noise power as n squared.

%D C. E. Shannon, The Mathematical Theory of Communication, page 93

%t digits=200 f[n_]=Floor[(2*Pi/E)*n^2] a=Table[f[n], {n, 1, digits}]

%K nonn

%O 1,1

%A _Roger L. Bagula_, Jan 31 2004