A216741 Primes p such that x^20 = -2 has no solution mod p.
5, 7, 11, 13, 17, 23, 29, 31, 37, 41, 47, 53, 61, 71, 79, 97, 101, 103, 109, 127, 131, 137, 149, 151, 157, 167, 173, 181, 191, 193, 197, 199, 211, 223, 229, 239, 241, 263, 269, 271, 277, 281, 293, 311, 313, 317, 331, 349, 359, 367, 373, 383, 389, 397, 401
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
ok[p_]:= Reduce[Mod[x^20 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok]
Comments