login
A054600
Sum_{d|n, d odd} d*2^(n/d).
3
0, 2, 4, 14, 16, 42, 76, 142, 256, 554, 1044, 2070, 4144, 8218, 16412, 32934, 65536, 131106, 262372, 524326, 1048656, 2097634, 4194348, 8388654, 16777984, 33554642, 67108916, 134219390, 268435568, 536870970, 1073745276, 2147483710
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