OFFSET
1,2
MATHEMATICA
Table[Sum[BellB[n/d - 1]*DivisorSigma[1, d], {d, Divisors[n]}], {n, 1, 30}] (* Vaclav Kotesovec, Sep 10 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved