OFFSET
0,2
MATHEMATICA
Unprotect[Power]; 0^0 = 1; Table[Sum[StirlingS2[n, k]^k, {k, 0, n}], {n, 0, 13}]
PROG
(PARI) a(n) = sum(k=0, n, stirling(n, k, 2)^k) \\ Felix Fröhlich, Jun 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 06 2021
STATUS
approved