OFFSET
1,4
LINKS
FORMULA
MATHEMATICA
Array[DivisorSum[#, # &, EvenQ@ PrimeOmega@ # &] &, 92] (* Michael De Vlieger, Sep 04 2018 *)
PROG
(PARI) A318676(n) = sumdiv(n, d, (!(bigomega(d)%2))*d);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 04 2018
STATUS
approved