OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..650
Tanya Khovanova, Recursive Sequences
Index entries for linear recurrences with constant coefficients, signature (34,-1).
FORMULA
a(n) = 34*a(n-1) - a(n-2) for n > 1; a(0)=1, a(1)=38. - Philippe Deléham, Nov 18 2008
a(n) = ChebyshevU(n, 17) + 4*ChebyshevU(n-1, 17). - G. C. Greubel, Aug 01 2022
MAPLE
f:= n -> orthopoly[U](n, 17)+4*orthopoly[U](n-1, 17):
f(0):= 1:
map(f, [$0..30]); # Robert Israel, Aug 02 2022
MATHEMATICA
Transpose[NestList[{#[[2]], 34#[[2]]-#[[1]]}&, {1, 38}, 20]][[1]] (* Harvey P. Dale, Mar 06 2011 *)
Table[ChebyshevU[n, 17] +4*ChebyshevU[n-1, 17], {n, 0, 30}] (* G. C. Greubel, Aug 01 2022 *)
PROG
(Magma) [n le 2 select (38)^(n-1) else 34*Self(n-1) -Self(n-2): n in [1..31]]; // G. C. Greubel, Aug 01 2022
(SageMath) [chebyshev_U(n, 17) +4*chebyshev_U(n-1, 17) for n in (0..30)] # G. C. Greubel, Aug 01 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved