%I #7 Sep 08 2022 08:45:02

%S 103,137,239,307,409,443,613,647,919,953,1021,1123,1259,1327,1361,

%T 1531,1667,1871,1973,2143,2347,2381,2551,2789,2857,3061,3163,3299,

%U 3469,3571,3673,3877,3911,4013,4217,4421,4591,4931,4999,5101,5237,5407,5441,5849

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

%C Complement of A049549 relative to A000040.

%H Vincenzo Librandi, <a href="/A058999/b058999.txt">Table of n, a(n) for n = 1..1000</a>

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

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

%K easy,nonn

%O 1,1

%A _Klaus Brockhaus_, Jan 17 2001