OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
defQ[n_] := DivisorSigma[1, n] < 2*n; nobDefQ[n_] := And @@ defQ /@ DivisorSigma[{0, 1}, n]; Select[Range[10^4], !defQ[#] && nobDefQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Dec 03 2021
STATUS
approved