|
| |
|
|
A154425
|
|
Maximal or central term of A142458: A(n,k)=(3*n - 3*k + 1)A(n - 1, k - 1) + (3*k - 2)A(n - 1, k); a(n)=A[n,1+Floor[n/2]]=Max[Table[A(n, k), {k, 1, n}]].
|
|
0
| |
|
|
1, 1, 8, 39, 546, 5482, 109640, 1709675, 44451550, 947113254, 30307624128, 821539580358, 31218504053604, 1028949571999572, 45273781167981168, 1758747856988046771, 87937392849402338550, 3935893923685215214030
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| A(n,k)=(3*n - 3*k + 1)A(n - 1, k - 1) + (3*k - 2)A(n - 1, k);
a(n)=A[n,1+Floor[n/2]]=Max[Table[A(n, k), {k, 1, n}]].
|
|
|
MATHEMATICA
| Clear[A]; 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];
Table[A[n, 1 + Floor[n/2]], {n, 1, 20}]
Table[Max[Table[A[n, k], {k, 1, n}]], {n, 1, 20}]
|
|
|
CROSSREFS
| A142458
Sequence in context: A097787 A144414 A045909 * A120931 A069083 A014642
Adjacent sequences: A154422 A154423 A154424 * A154426 A154427 A154428
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 09 2009
|
| |
|
|
