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

3, 5, 7, 11, 13, 19, 29, 37, 43, 53, 59, 61, 67, 71, 73, 79, 83, 97, 101, 103, 107, 109, 113, 127, 131, 139, 149, 151, 157, 163, 173, 179, 181, 193, 197, 199, 211, 227, 229, 239, 241, 251, 269, 271, 277, 281, 283, 293, 307, 313, 317, 331, 337, 347, 349, 367

Offset

1,1

Comments

Complement of A049574 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[80]], ok ] (* Vincenzo Librandi, Sep 20 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(400) | forall{x: x in ResidueClassRing(p) | x^42 ne 2}]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Cf. A000040, A049574.

Sequence in context: A072667 A092729 A290817 * A212375 A040993 A078425

Adjacent sequences: A059350 A059351 A059352 * A059354 A059355 A059356

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 27 2001

Status

approved