OFFSET
1,1
COMMENTS
The next term is too large to be included in the Data section, see A085724 for the corresponding exponents k. - M. F. Hasler, Apr 14 2026
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..42
FORMULA
EXAMPLE
2047 is a member because 2047 = 2^11 - 1 = 23*89.
MATHEMATICA
a := Select[Range[2, 120], ! PrimeQ[2^# - 1] && Length[Divisors[2^# - 1]] <= 4 &]; 2^a - 1 (* Stefan Steinerberger, Apr 12 2006, corrected by T. D. Noe, Feb 22 2013 *)
Select[2^Range[0, 110]-1, PrimeOmega[#] == 2&] (* Harvey P. Dale, Feb 22 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 27 2004
EXTENSIONS
a(12) from Stefan Steinerberger, Apr 12 2006
STATUS
approved
