OFFSET
1,3
LINKS
FORMULA
MATHEMATICA
Array[DivisorSigma[1, Times @@ Power @@@ Select[FactorInteger[#], Mod[#[[1]], 4] == 3 &]] &, 102] (* Michael De Vlieger, Mar 30 2019 *)
PROG
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Mar 27 2019
STATUS
approved