A216769 Primes p such that x^48 = -2 has no solution mod p.
5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 47, 53, 61, 67, 71, 73, 79, 89, 97, 101, 103, 109, 113, 127, 137, 139, 149, 151, 157, 163, 167, 173, 181, 191, 193, 197, 199, 211, 223, 229, 233, 239, 241, 263, 269, 271, 277, 293, 311, 313, 317, 331, 337, 349, 353, 359
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^48 eq -2}]; -
Mathematica
ok[p_] := Reduce[Mod[x^48 + 2, p] == 0, x, Integers] == False;Select[Prime[Range[200]], ok]
Comments