OFFSET
1,1
MATHEMATICA
Select[Range[256], DivisorSigma[1, #] <= 2 # <
Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] &] (* Michael De Vlieger, Feb 22 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 22 2021
STATUS
approved