OFFSET
1,6
REFERENCES
Claude Shannon and Warren Weaver, A Mathematical Theory of Communication, University of Illinois Press, Chicago, 1963, pp. 37-38.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,1,0,0,2,0,0,1,0,1,0,1).
FORMULA
a(n) = a(n-2) + 2*a(n-5) + a(n-8) + a(n-10) + a(n-12).
MATHEMATICA
Rest@CoefficientList[Series[x/(1-x^2-2x^5-x^8-x^10-x^12), {x, 0, 60}], x] (* or *) LinearRecurrence[{0, 1, 0, 0, 2, 0, 0, 1, 0, 1, 0, 1}, {1, 0, 1, 0, 1, 2, 1, 4, 2, 6, 8, 8}, 60] (* Harvey P. Dale, Oct 01 2012 *)
PROG
(PARI) my(x='x+O('x^60)); Vec(x/(1-x^2-2*x^5-x^8-x^10-x^12)) \\ G. C. Greubel, Sep 27 2017
(Sage)
def A143375_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( x/(1-x^2-2*x^5-x^8-x^10-x^12) ).list()
a=A143375_list(60); a[1:] # G. C. Greubel, Feb 08 2021
(Magma)
R<x>:=PowerSeriesRing(Rationals(), 60);
Coefficients(R!( x/(1-x^2-2*x^5-x^8-x^10-x^12) )); // G. C. Greubel, Feb 08 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 22 2008
EXTENSIONS
More terms from Harvey P. Dale, Oct 01 2012
Edited by G. C. Greubel, Feb 08 2021
STATUS
approved