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,1

Comments

Complement of A051094 relative to A000040.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

ok[p_] := Reduce[Mod[x^50 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[200]], ok]

Prog

(Magma) [p: p in PrimesUpTo(600) | not exists{x : x in ResidueClassRing(p) | x^50 eq -2}];

Crossrefs

Cf. A000040, A051094.

Sequence in context: A314298 A314299 A349459 * A216736 A050541 A098865

Adjacent sequences: A216767 A216768 A216769 * A216771 A216772 A216773

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved