|
%I #7 Sep 08 2022 08:45:02
%S 23,67,89,199,353,397,419,463,617,661,683,727,859,881,947,991,1123,
%T 1277,1409,1453,1607,1783,1871,2003,2069,2113,2179,2267,2311,2333,
%U 2377,2399,2531,2663,2707,2729,2861,2927,2971,3037,3169,3191,3257,3301,3323
%N Primes p such that x^11 = 2 has no solution mod p.
%C Complement of A049543 relative to A000040.
%H Vincenzo Librandi, <a href="/A059241/b059241.txt">Table of n, a(n) for n = 1..1000</a>
%t ok[p_]:= Reduce[Mod[x^11 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[1000]], ok] (* _Vincenzo Librandi_, Sep 20 2012 *)
%o (Magma) [p: p in PrimesUpTo(3500) | not exists{x : x in ResidueClassRing(p) | x^11 eq 2} ]; // _Vincenzo Librandi_, Sep 20 2012
%Y Cf. A000040, A049543.
%K easy,nonn
%O 1,1
%A _Klaus Brockhaus_, Jan 21 2001
|
