|
Search: id:A123236
|
|
|
| A123236 |
|
a(1) = 1; a(2) = 1; a(3) = 31; a(4) = 134; a(5) = 2094; a(n) = 10a(n-1)+44a(n-2)-370a(n-3)-240a(n-4)+2400a(n-5) for n >= 6. |
|
+0
1
|
|
| 1, 1, 31, 134, 2094, 17526, 212776, 2166364, 24360204, 261014296, 2871433416, 31176422744, 340884832864, 3714001624016, 40540962761456, 442107409651424, 4823706911830624, 52616402130339936, 574011156687808896
(list; graph; listen)
|
|
|
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
|
m = 5 M = Table[If[i + j - 1 > m, 0, Floor[(i + j + 2*i*j)/4]], {i, 1, m}, {j, 1, m}]; v[1] = Table[If[n == 1, 1, 0], {n, 1, m}]; v[n_] := v[n] = M.v[n - 1]; a = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A044363 A044744 A167388 this_sequence A142561 A165568 A141950
Adjacent sequences: A123233 A123234 A123235 this_sequence A123237 A123238 A123239
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 06 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 08 2006
|
|
|
Search completed in 0.002 seconds
|
