A059330 Primes p such that x^67 = 2 has no solution mod p.

269, 1609, 1877, 2011, 3083, 3217, 4021, 4289, 4423, 4691, 5227, 5897, 6299, 6701, 7103, 7237, 7639, 7907, 8443, 9649, 10453, 11257, 11927, 12329, 13267, 14071, 14741, 15277, 15679, 16349, 17957, 18493, 19163, 19699, 20101, 20369, 20771

Offset

1,1

Comments

Complement of A216887 relative to A000040. - Vincenzo Librandi, Sep 20 2012

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A142385 A142823 A255023 * A054803 A251216 A166807

Adjacent sequences: A059327 A059328 A059329 * A059331 A059332 A059333

Keyword

nonn,easy

Author

Klaus Brockhaus, Jan 26 2001

Status

approved