A216770 Primes p such that x^50 = -2 has no solution mod p.
5, 7, 11, 13, 23, 29, 31, 37, 41, 47, 53, 61, 71, 79, 101, 103, 109, 127, 131, 149, 151, 157, 167, 173, 181, 191, 197, 199, 211, 223, 229, 239, 251, 263, 269, 271, 277, 281, 293, 311, 317, 331, 349, 359, 367, 373, 383, 389, 397, 401, 421, 431, 439, 461, 463, 479
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(600) | not exists{x : x in ResidueClassRing(p) | x^50 eq -2}]; -
Mathematica
ok[p_] := Reduce[Mod[x^50 + 2, p] == 0, x, Integers] == False;Select[Prime[Range[200]], ok]
Comments