login
A090398
a(n) = Floor[(2*Pi/E)*n^2]
0
2, 9, 20, 36, 57, 83, 113, 147, 187, 231, 279, 332, 390, 453, 520, 591, 668, 748, 834, 924, 1019, 1118, 1222, 1331, 1444, 1562, 1685, 1812, 1943, 2080, 2221, 2366, 2517, 2672, 2831, 2995, 3164, 3337, 3515, 3698, 3885, 4077, 4273, 4474, 4680, 4891, 5106
OFFSET
1,1
COMMENTS
Shannon entropy white noise power as n squared.
REFERENCES
C. E. Shannon, The Mathematical Theory of Communication, page 93
MATHEMATICA
digits=200 f[n_]=Floor[(2*Pi/E)*n^2] a=Table[f[n], {n, 1, digits}]
CROSSREFS
Sequence in context: A014107 A173102 A373732 * A091941 A294540 A248435
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 31 2004
STATUS
approved