OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..962
Index entries for linear recurrences with constant coefficients, signature (10,44,-370,-240,2400).
MAPLE
a[1]:=1: a[2]:=1: a[3]:=31: a[4]:=134: a[5]:=2094: for n from 6 to 20 do a[n]:=10*a[n-1]+44*a[n-2]-370*a[n-3]-240*a[n-4]+2400*a[n-5] od: seq(a[n], n=1..20);
MATHEMATICA
LinearRecurrence[{10, 44, -370, -240, 2400}, {1, 1, 31, 134, 2094}, 50] (* G. C. Greubel, Oct 12 2018 *)
PROG
(PARI) m=50; v=concat([1, 1, 31, 134, 2094], vector(m-5)); for(n=6, m, v[n] = 10*v[n-1] +44*v[n-2] -370*v[n-3] -240*v[n-4] + 2400*v[n-5]); v \\ G. C. Greubel, Oct 12 2018
(Magma) I:=[1, 1, 31, 134, 2094]; [n le 5 select I[n] else 10*Self(n-1) + 44*Self(n-2) - 370*Self(n-3) - 240*Self(n-4) + 2400*Self(n-5): n in [1..50]]; // G. C. Greubel, Oct 12 2018
(GAP) a:=[1, 1, 31, 134, 2094];; for n in [6..20] do a[n]:=10*a[n-1]+44*a[n-2]-370*a[n-3]-240*a[n-4]+2400*a[n-5]; od; a; # Muniru A Asiru, Oct 12 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 08 2006
STATUS
approved