OFFSET
1,2
COMMENTS
EXAMPLE
MATHEMATICA
Select[Range[10^4], Divisible[# * DivisorSigma[0, #, GaussianIntegers -> True], DivisorSigma[1, #, GaussianIntegers -> True]] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Feb 09 2020
STATUS
approved