OFFSET
1,2
COMMENTS
If both x and y are terms and gcd(x, y) = 1, then x*y is a term also.
LINKS
MATHEMATICA
f[p_, e_] := ((q = NextPrime[p])^(e + 1) - 1)/(q - 1); Select[Range[10^4], # == 1 || Divisible[Times @@ f @@@ FactorInteger[#], DivisorSigma[1, #]] &] (* Amiram Eldar, Jul 22 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 22 2022
STATUS
approved