OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..30
MATHEMATICA
B[n_, k_] := Sum[(-1)^j Binomial[n+1, j] (k-j+1)^n, {j, 0, k+1}];
a[n_] := If[n == 0, 1, Sum[B[n, j]^n, {j, 0, n-1}]];
Table[a[n], {n, 0, 10}] (* Jean-François Alcover, Sep 03 2021, from A335545 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 12 2020
STATUS
approved