A216736 Primes p such that x^10 = -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, 263, 269, 271, 277, 281, 293, 311, 317, 331, 349, 359, 367, 373, 383, 389, 397, 401, 421, 431, 439, 461, 463, 479, 487, 491

Offset

1,1

Comments

Complement of A051074 relative to A000040.

Links

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

Mathematica

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

Crossrefs

Cf. A000040, A051074.

Sequence in context: A314299 A349459 A216770 * A050541 A098865 A022885

Adjacent sequences: A216733 A216734 A216735 * A216737 A216738 A216739

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 15 2012

Status

approved