OFFSET
0,3
COMMENTS
MATHEMATICA
Clear[d]; d[0] = 1; d[1] = 0; d[n_] := d[n] =
1 + Sum[Binomial[n - 1, j]*d[j], {j, 2, n - 1}]; Table[
d[n + 2] - d[n + 1], {n, 0, 22}] (* From the code by J.-F. Alcover and Jon Perry in A032347 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier GĂ©rard, Aug 11 2016
STATUS
approved