OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Flatten @ Outer[Plus, 6 * Range[0, 300], {1, 5}], Max @ FactorInteger[DivisorSigma[1, #]][[;; , 1]] <= 3 &] (* Amiram Eldar, May 25 2022 *)
Select[Range[1, 1701, 2], Mod[#, 3]!=0&&Max[FactorInteger[DivisorSigma[1, #]][[;; , 1]]]<4&] (* Harvey P. Dale, Dec 17 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 24 2022
STATUS
approved