A059243 Primes p such that x^43 = 2 has no solution mod p.

173, 431, 947, 1033, 1291, 1549, 1721, 1979, 2237, 2753, 3011, 3527, 3613, 4129, 4817, 4903, 5333, 5591, 5849, 6451, 6709, 6967, 7741, 8171, 8429, 9203, 9461, 9547, 9719, 10321, 10837, 11353, 11783, 12041, 13159, 13331, 13417, 13933, 14621

Offset

1,1

Comments

Complement of A058853 relative to A000040.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

ok[p_]:= Reduce[Mod[x^43 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[4000]], ok] (* Vincenzo Librandi, Sep 20 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(15000) | not exists{x : x in ResidueClassRing(p) | x^43 eq 2} ]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Cf. A000040, A058853.

Sequence in context: A275968 A142782 A142250 * A142134 A142849 A271978

Adjacent sequences: A059240 A059241 A059242 * A059244 A059245 A059246

Keyword

easy,nonn

Author

Klaus Brockhaus, Jan 21 2001

Status

approved