|
| |
|
|
A158802
|
|
Recursive sequence as solution to a differential equation: a(n)=((n - 1)*(n - 3)*a(n - 1) - a(n - 2) + a(n - 3))/(n*(n - 1))
|
|
0
| |
|
|
0, 1, -4, 0, 16, 10, 12, 182, 1120, 7452, 58640, 520784, 5142144, 55929640, 664505744, 8562670920, 118939979008, 1771631324848, 28168269788160, 476151820931168, 8526830353553920, 161255217263900256
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
REFERENCES
| Martin Braun,Differential Equations and Their Applications : An Introduction to Applied Mathematics (Texts in Applied Mathematics, Vol. 11),Springer,1992,page283, Example 5.
|
|
|
FORMULA
| a(n)=((n - 1)*(n - 3)*a(n - 1) - a(n - 2) + a(n - 3))/(n*(n - 1));
out_(n)=n*n!*a(n)
|
|
|
MATHEMATICA
| Clear[a, n];
a[0] = 1; a[1] = 1; a[2] = -1;
a[n_] := a[n] = ((n - 1)*(n - 3)*a[n - 1] - a[n - 2] + a[n - 3])/(n*(n - 1));
Table[n*n!*a[n], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A086262 A167361 A167314 * A030212 A167359 A007216
Adjacent sequences: A158799 A158800 A158801 * A158803 A158804 A158805
|
|
|
KEYWORD
| sign,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 27 2009
|
| |
|
|
