|
Search: id:A154596
|
|
| |
|
| 1, 1, 2, 11, 129, 3214, 162491, 16306117, 3231430542, 1254563121783, 953359099059949, 1417753660258148022, 4128222097278496550683, 23571703478682225135264061, 264268834213603744830353397238
(list; graph; listen)
|
|
|
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 this_sequence A066382 A139387 A041725
Adjacent sequences: A154593 A154594 A154595 this_sequence A154597 A154598 A154599
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jan 12 2009
|
|
|
Search completed in 0.002 seconds
|
