OFFSET
1,2
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Sum[If[d < n, Binomial[n, d] a[d], 0], {d, Divisors[n]}]; Table[a[n], {n, 1, 35}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 09 2021
STATUS
approved