OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range[1, 645, 2], GCD[#1, #3] != GCD[#2, #3] & @@ {#, DivisorSigma[1, #], Times @@ Map[NextPrime[#1]^#2 & @@ # &, FactorInteger[#]]} &] (* Michael De Vlieger, Nov 11 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 10 2021
STATUS
approved