A216777 Primes p such that x^64 = -2 has no solution mod p.

5, 7, 13, 17, 23, 29, 31, 37, 41, 47, 53, 61, 71, 73, 79, 89, 97, 101, 103, 109, 113, 127, 137, 149, 151, 157, 167, 173, 181, 191, 193, 197, 199, 223, 229, 233, 239, 241, 257, 263, 269, 271, 277, 293, 311, 313, 317, 337, 349, 353, 359, 367, 373, 383, 389

Offset

1,1

Comments

Complement of A051101 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A051101.

Sequence in context: A087155 A216753 A045442 * A216747 A216739 A216735

Adjacent sequences: A216774 A216775 A216776 * A216778 A216779 A216780

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved