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 (7,7).
FORMULA
G.f.: (1-x-x^2)/(1-7*x-7*x^2) .
a(n) = (1/7)*[n=0] - 6*(sqrt(7)*i)^(n-2)*ChebyshevU(n, -sqrt(7)*i/2). - G. C. Greubel, Mar 25 2021
MAPLE
m:= 7; 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[{7, 7}, {1, 6, 48}, 30] (* Harvey P. Dale, Mar 11 2018 *)
PROG
(Magma) m:=7; [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=7; [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