OFFSET
1,2
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..10000
MAPLE
A227873 := proc(n)
option remember ;
local a, d ;
a := 0 ;
for d in numtheory[divisors](n) do
if not isA001969(d) then
a := a+d ;
end if;
end do:
a ;
end proc:
seq(A227873(n), n=1..200) ; # R. J. Mathar, Aug 17 2022
MATHEMATICA
Total[Select[Divisors@ #, OddQ@ First@ DigitCount[#, 2] &]] & /@ Range@ 72 (* Michael De Vlieger, Aug 04 2015 *)
PROG
(PARI) a(n) = sumdiv(n, d, d*(hammingweight(d) % 2)); \\ Michel Marcus, Aug 04 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Oct 25 2013
EXTENSIONS
More terms from Peter J. C. Moses
Minor changes. - Wolfdieter Lang, Aug 23 2015
STATUS
approved