OFFSET
1,2
COMMENTS
Ratio of odd numbers residing in this sequence, vs. in A349175 seems to slowly decrease, but still apparently stays > 2 for a long time. E.g., for range 2 .. 2^28, it is 95302074/38915653 = 2.4489...
LINKS
MATHEMATICA
Select[Range[1, 169, 2], GCD[#1, #3] == GCD[#2, #3] & @@ {#, DivisorSigma[1, #], Times @@ Map[NextPrime[#1]^#2 & @@ # &, FactorInteger[#]]} &] (* Michael De Vlieger, Nov 11 2021 *)
PROG
CROSSREFS
Cf. A349175 (complement among the odd numbers).
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 10 2021
STATUS
approved