OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range[10^6], SameQ @@ Map[Times @@ FactorInteger[#][[All, 1]] &, {DivisorSigma[1, #], 2 #}] &] (* Michael De Vlieger, Feb 08 2020 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 07 2020
STATUS
approved