OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
9 is in the sequence because 9 has 3 divisors {1,3,9}, 9/3 = 3 and (1^2 + 3^2 + 9^2)/(1 + 3 + 9) = 7 are both integer.
MATHEMATICA
Select[Range[30000], Divisible[DivisorSigma[2, #1], DivisorSigma[1, #1]] && Divisible[#1, DivisorSigma[0, #1]] & ]
Select[Range[30000], With[{ds=DivisorSigma}, Mod[ds[2, #], ds[1, #]]==Mod[#, ds[0, #]]==0&]] (* Harvey P. Dale, Nov 27 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Jan 01 2017
STATUS
approved