login
A123236
a(n) = 10*a(n-1) + 44*a(n-2) - 370*a(n-3) - 240*a(n-4) + 2400*a(n-5), a(1) = 1, a(2) = 1, a(3) = 31, a(4) = 134, a(5) = 2094, for n >= 6.
1
1, 1, 31, 134, 2094, 17526, 212776, 2166364, 24360204, 261014296, 2871433416, 31176422744, 340884832864, 3714001624016, 40540962761456, 442107409651424, 4823706911830624, 52616402130339936, 574011156687808896
OFFSET
1,3
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
Sequence in context: A044744 A167388 A250462 * A142561 A165568 A141950
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 08 2006
STATUS
approved