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