A059335 Primes p such that x^33 = 2 has no solution mod p.

7, 13, 19, 23, 37, 61, 67, 73, 79, 89, 97, 103, 139, 151, 163, 181, 193, 199, 211, 241, 271, 313, 331, 337, 349, 353, 367, 373, 379, 397, 409, 419, 421, 463, 487, 523, 541, 547, 571, 577, 607, 613, 617, 619, 631, 661, 673, 683, 709, 727, 751, 757, 769, 787

Offset

1,1

Comments

Complement of A049565 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

A000040, A049565.

Sequence in context: A038910 A035497 A216527 * A070419 A080199 A016921

Adjacent sequences: A059332 A059333 A059334 * A059336 A059337 A059338

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 26 2001

Status

approved