A098698 Main diagonal of array in A098697.

1, 4, 64, 1778, 73848, 4188592, 306690520, 27893327856, 3063657097664, 397720778283584, 59997757426314624, 10373545999796847232, 2032368096229682220160, 446879795164524710777856

Offset

0,2

Comments

Diagonal of Euler-Seidel matrix with start sequence A000248.

Links

Table of n, a(n) for n=0..13.

Formula

a(n) = Sum_{k=0..n} C(n, k) * A000248(2n-k).

Mathematica

a248[0] = 1; a248[n_] := Sum[Binomial[n, k]*(n - k)^k, {k, 0, n}];
T[0, n_] := T[0, n] = a248[n]; T[k_, n_] := T[k, n] = T[k - 1, n] + T[k - 1, n + 1];
a[n_] := T[n, n];
Table[a[n], {n, 0, 13}] (* Jean-François Alcover, Nov 08 2017 *)

Crossrefs

Sequence in context: A263988 A208357 A050636 * A301583 A181398 A326274

Adjacent sequences: A098695 A098696 A098697 * A098699 A098700 A098701

Keyword

nonn

Author

Ralf Stephan, Sep 23 2004

Status

approved