OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6,6).
FORMULA
G.f.: (1-x-x^2)/(1-6*x-6*x^2) .
a(n) = (1/6)*[n=0] - 5*(sqrt(6)*i)^(n-2)*ChebyshevU(n, -sqrt(6)*i/2). - G. C. Greubel, Mar 25 2021
MAPLE
m:=6; 1, seq(simplify((1-m)*(sqrt(m)*I)^(n-2)*ChebyshevU(n, -I*sqrt(m)/2)), n = 1..30); # G. C. Greubel, Mar 25 2021
MATHEMATICA
LinearRecurrence[{6, 6}, {1, 5, 35}, 20] (* Harvey P. Dale, Apr 14 2015 *)
PROG
(Magma) m:=6; [1] cat [n le 2 select (m-1)*(m*n-(m-1)) else m*(Self(n-1) + Self(n-2)): n in [1..30]]; // G. C. Greubel, Mar 25 2021
(Sage) m=6; [1]+[-(m-1)*(sqrt(m)*i)^(n-2)*chebyshev_U(n, -sqrt(m)*i/2) for n in (1..30)] # G. C. Greubel, Mar 25 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Philippe Deléham, Jan 20 2009
STATUS
approved