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