OFFSET
1,1
COMMENTS
This sequence if infinite. For example, 45*p is a term if p is a prime > 5.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
abQ[n_] := DivisorSigma[1, n] > 2*n; nobAbQ[n_] := And @@ abQ /@ DivisorSigma[{0, 1}, n]; Select[Range[2000], !abQ[#] && nobAbQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Dec 03 2021
STATUS
approved