OFFSET
0,2
MATHEMATICA
f[n_]:=With[{od=Select[Divisors[n], OddQ]}, Total[od 2^(n/od)]]; Join[{0}, Array[f, 40]] (* Harvey P. Dale, Aug 31 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 16 2000
STATUS
approved