%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
|