OFFSET
0,11
COMMENTS
Shannon mentions this recurrence with characteristic polynomial x^10 +x^8 +x^7 +x^5 +x^4 +x^2 -1 = 0 in connection with the channel capacity Cp = Log[W] = Log[xroot_max] = 0.539... .
REFERENCES
Claude Shannon and Warren Weaver, A Mathematical Theory of Communication, University of Illinois Press, Chicago, 1963, pages 37-38.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,1,0,1,1,0,1,1,0,1).
FORMULA
O.g.f.: (1 +x -x^4 -2*x^5 -2*x^6 -3*x^7 -4*x^8 -4*x^9)/(1 -x^2 -x^4 -x^5 -x^7 -x^8 -x^10). - R. J. Mathar, Dec 05 2007
MATHEMATICA
a[n_]:= a[n]= If[n<10, 1, a[n-2] +a[n-4] +a[n-5] +a[n-7] +a[n-8] +a[n-10]];
Table[a[n], {n, 0, 50}]
PROG
(Sage)
def A122762_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (1+x-x^4-2*x^5-2*x^6-3*x^7-4*x^8-4*x^9)/(1-x^2-x^4-x^5-x^7-x^8 -x^10) ).list()
A122762_list(50) # G. C. Greubel, Feb 08 2021
(Magma)
R<x>:=PowerSeriesRing(Rationals(), 50);
Coefficients(R!( (1+x-x^4-2*x^5-2*x^6-3*x^7-4*x^8-4*x^9)/(1-x^2-x^4-x^5-x^7-x^8 -x^10) )); // G. C. Greubel, Feb 08 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 21 2006
EXTENSIONS
Edited by N. J. A. Sloane, May 09 2007
STATUS
approved