|
| |
|
|
A154596
|
|
Binomial like transform using A142458; a(n) = Sum[A142458(n, k)*a(n - k), {k, 1, n}].
|
|
0
| |
|
|
1, 1, 2, 11, 129, 3214, 162491, 16306117, 3231430542, 1254563121783, 953359099059949, 1417753660258148022, 4128222097278496550683, 23571703478682225135264061, 264268834213603744830353397238
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| a(n) = Sum[A142458(n, k)*a(n - k), {k, 1, n}].
|
|
|
MATHEMATICA
| Clear[A, a, b, c, d, n, k, i, m, n]; A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := (3*n - 3*k + 1)A[n - 1, k - 1] + (3*k - 2)A[n - 1, k];
a[0] = 1; a[n_] := a[n] = Sum[A[n, k]*a[n - k], {k, 1, n}];
Table[a[n], {n, 0, 20}]
|
|
|
CROSSREFS
| A142458, A000670
Sequence in context: A112864 A077391 A104087 * A066382 A139387 A041725
Adjacent sequences: A154593 A154594 A154595 * A154597 A154598 A154599
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jan 12 2009
|
| |
|
|
