|
Search: id:A123150
|
|
|
| A123150 |
|
a(n)=f(n)*a[n - 5]/(n*(n - 1)*(n - 2)*(n - 3)*(n - 4)) where f(n)=n^5 - n^4 - n^3 + n^2 - 1. |
|
+0
1
|
|
| 1, 1, 2, 6, 24, 2399, 6299, 28222, 169338, 1244136, 213748501, 914608501, 6392593442, 57693964614, 618160168824, 150820728557099, 895583729570699, 8513087005239262, 102642351647368962, 1446049101566437896
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
Clear[a] f[n_] = n^5 - n^4 - n^3 + n^2 - 1 a[n_] := a[n] = f[n]*a[n - 5]/(n*(n - 1)*(n - 2)*(n - 3)*(n - 4)); a[0] = 1; a[1] = 1; a[2] = 1; a[3] = 1; a[4] = 1; Table[a[n]*n!, {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A061774 A088258 A089718 this_sequence A086591 A073545 A103063
Adjacent sequences: A123147 A123148 A123149 this_sequence A123151 A123152 A123153
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 04 2006
|
|
|
Search completed in 0.002 seconds
|
