A216774 Primes p such that x^58 = -2 has no solution mod p.

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

Offset

1,1

Comments

Complement of A051098 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A051098.

Sequence in context: A167798 A165815 A216738 * A216742 A216744 A216748

Adjacent sequences: A216771 A216772 A216773 * A216775 A216776 A216777

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved