A145044 Primes p (A000043) such that 2^p-1 is prime (A000668) and congruent to 271 mod 6!.
13, 61, 2281, 3217, 23209, 44497, 132049, 13466917, 30402457, 42643801
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[MersennePrimeExponent[Range[47]], PowerMod[2, #, 6!] == 272 &] (* Amiram Eldar, Mar 22 2020 *)
Extensions
a(10) from Amiram Eldar, Mar 22 2020
Comments