OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[10^5], SameQ @@ Map[Times @@ Map[#1^#2 & @@ # &, DeleteCases[ FactorInteger[#], _?(First@ # <= 3 &)]] &, {#, DivisorSigma[1, #]}] &, 97] (* Michael De Vlieger, Jul 24 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 24 2020
STATUS
approved