A216752 Primes p such that x^42 = -2 has no solution mod p.

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

Offset

1,1

Comments

Complement of A051090 relative to A000040.

Links

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

Mathematica

ok[p_]:=Reduce[Mod[x^42 + 2, p] == 0, x, Integers] == False; Select[Prime[Range[300]], ok] (* Vincenzo Librandi, Sep 16 2012 *)

Prog

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

Crossrefs

Cf. A000040, A051090.

Sequence in context: A314325 A086844 A109269 * A216740 A216772 A216734

Adjacent sequences: A216749 A216750 A216751 * A216753 A216754 A216755

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 16 2012

Status

approved