OFFSET
0,2
COMMENTS
Diagonal of Euler-Seidel matrix with start sequence A000248.
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
KEYWORD
nonn
AUTHOR
Ralf Stephan, Sep 23 2004
STATUS
approved