A218582 Primes which do not divide any Mersenne number M(p) = 2^p - 1 with prime p.

2, 5, 11, 13, 17, 19, 29, 37, 41, 43, 53, 59, 61, 67, 71, 73, 79, 83, 97, 101, 103, 107, 109, 113, 131, 137, 139, 149, 151, 157, 163, 173, 179, 181, 191, 193, 197, 199, 211, 227, 229, 239, 241, 251, 257, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337

Offset: 1

Author

Arkadiusz Wesolowski, Nov 03 2012

Keywords

• nonn

Links

• Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000

Crossrefs

Complement in primes of A122094. Subsequence of A138837.

Programs

Magma

[p: p in PrimesInInterval(2, 337) | not IsPrime(Modorder(2, p))];

Mathematica

Select[Prime@Range[68], ! PrimeQ@MultiplicativeOrder[2, #] &]