A216768 Primes p such that x^46 = -2 has no solution mod p.

5, 7, 13, 23, 29, 31, 37, 47, 53, 61, 71, 79, 101, 103, 109, 127, 139, 149, 151, 157, 167, 173, 181, 191, 197, 199, 223, 229, 239, 263, 269, 271, 277, 293, 311, 317, 349, 359, 367, 373, 383, 389, 397, 421, 431, 439, 461, 463, 479, 487

Offset

1,1

Comments

Complement of A051092 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

A000040, A051092.

Sequence in context: A216742 A216744 A216748 * A216750 A003628 A216776

Adjacent sequences: A216765 A216766 A216767 * A216769 A216770 A216771

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved