|
Search: id:A154425
|
|
|
| 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, 1, 8, 39, 546, 5482, 109640, 1709675, 44451550, 947113254, 30307624128, 821539580358, 31218504053604, 1028949571999572, 45273781167981168, 1758747856988046771, 87937392849402338550, 3935893923685215214030
(list; graph; listen)
|
|
|
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 this_sequence A120931 A069083 A014642
Adjacent sequences: A154422 A154423 A154424 this_sequence A154426 A154427 A154428
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 09 2009
|
|
|
Search completed in 0.002 seconds
|
