OFFSET
1,2
COMMENTS
Ordinal transform of A000593.
LINKS
Eric Weisstein's World of Mathematics, Odd Divisor Function.
MATHEMATICA
Table[Length[Select[Range[n], Sum[Mod[d, 2] d, {d, Divisors[#]}] == Sum[Mod[d, 2] d, {d, Divisors[n]}] &]], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Ilya Gutkovskiy, Jan 30 2025
STATUS
approved