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