OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
MAPLE
b:= proc(n, i, t) option remember; `if`(t=1, 1/n!,
add(b(n-j, j, t-1)/j!, j=i..n/t))
end:
a:= proc(n) option remember; `if`(n=0, 1, add(add(d*d!*
b(d, 0, 3), d=numtheory[divisors](j))*a(n-j), j=1..n)/n)
end:
seq(a(n), n=0..35);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 21 2017
STATUS
approved