A058999 Primes p such that x^17 = 2 has no solution mod p.

103, 137, 239, 307, 409, 443, 613, 647, 919, 953, 1021, 1123, 1259, 1327, 1361, 1531, 1667, 1871, 1973, 2143, 2347, 2381, 2551, 2789, 2857, 3061, 3163, 3299, 3469, 3571, 3673, 3877, 3911, 4013, 4217, 4421, 4591, 4931, 4999, 5101, 5237, 5407, 5441, 5849

Offset

1,1

Comments

Complement of A049549 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A023080 A219785 A129484 * A046077 A127027 A033256

Adjacent sequences: A058996 A058997 A058998 * A059000 A059001 A059002

Keyword

easy,nonn

Author

Klaus Brockhaus, Jan 17 2001

Status

approved