A216737 Primes p such that x^12 = -2 has no solution mod p.

5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 47, 53, 61, 67, 71, 73, 79, 97, 101, 103, 109, 127, 137, 139, 149, 151, 157, 163, 167, 173, 181, 191, 193, 197, 199, 211, 223, 229, 239, 241, 263, 269, 271, 277, 293, 311, 313, 317, 331, 337, 349, 359, 367, 373, 379, 383, 389, 397, 401, 409, 421, 431

Offset

1,1

Comments

Complement of A051075 relative to A000040.

Links

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

Mathematica

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

Crossrefs

Cf. A000040, A051075.

Sequence in context: A216769 A216743 A216749 * A078867 A038911 A038988

Adjacent sequences: A216734 A216735 A216736 * A216738 A216739 A216740

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 15 2012

Status

approved