A059336 Primes p such that x^34 = 2 has no solution mod p.

3, 5, 11, 13, 19, 29, 37, 43, 53, 59, 61, 67, 83, 101, 103, 107, 109, 131, 137, 139, 149, 157, 163, 173, 179, 181, 197, 211, 227, 229, 239, 251, 269, 277, 283, 293, 307, 317, 331, 347, 349, 373, 379, 389, 397, 409, 419, 421, 443, 461, 467, 491, 499, 509, 523

Offset

1,1

Comments

Complement of A049566 relative to A000040.

Links

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

Mathematica

ok[p_] := Reduce[Mod[x^34 - 2, p] == 0, x, Integers] == False; Select[Prime[Range[100]], ok ] (* Vincenzo Librandi, Sep 20 2012  *)

Prog

(Magma) [p: p in PrimesUpTo(550) | not exists{x : x in ResidueClassRing(p) | x^34 eq 2 }]; // Vincenzo Librandi, Sep 20 2012

Crossrefs

Sequence in context: A059638 A059265 A059314 * A059350 A059644 A059646

Adjacent sequences: A059333 A059334 A059335 * A059337 A059338 A059339

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 26 2001

Status

approved