A059257 Primes p such that x^47 = 2 has no solution mod p.
283, 659, 941, 1129, 1223, 1693, 1787, 2069, 2351, 2539, 2633, 3761, 4231, 4513, 4889, 5077, 5171, 5641, 5923, 6299, 6581, 6863, 7333, 8179, 8273, 8461, 8837, 9871, 10247, 10529, 11093, 11657, 11939, 12409, 12503, 12973, 13537, 13913, 14759
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(15000) | forall{x: x in ResidueClassRing(p) | x^47 ne 2}]; // Bruno Berselli, Sep 12 2012
-
Mathematica
ok[p_]:= Reduce[Mod[x^47 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[1800]], ok] (* Vincenzo Librandi, Sep 20 2012 *)
-
PARI
select(p->!ispower(Mod(2,p),47),primes(3000)) \\ Charles R Greathouse IV, Sep 13 2012
Comments