OFFSET
1,2
COMMENTS
In comparison with A081504 (dealing with 2^m + 2^k + 1) where most of the terms are even, here the vast majority of terms are odd.
MATHEMATICA
q[m_] := AllTrue[Range[m - 1], ! PrimeQ[2^m + 2^# - 1] &]; Select[Range[400], q] (* Amiram Eldar, Jul 06 2021 *)
PROG
(PARI) isok(m) = for(k=1, m-1, if (ispseudoprime(2^m+2^k-1), return (0))); return (1); \\ Michel Marcus, Jul 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Lamine Ngom, Jul 06 2021
STATUS
approved