A059244 Primes p such that x^19 = 2 has no solution mod p.

191, 229, 419, 457, 571, 647, 761, 1217, 1483, 1559, 1597, 1787, 1901, 2053, 2129, 2243, 2281, 2357, 2699, 2851, 2927, 3041, 3079, 3307, 3877, 4219, 4409, 4447, 4523, 4561, 4637, 4751, 4789, 4903, 5701, 6271, 6689, 6803, 6841, 6917, 7069, 7297, 7411

Offset

1,1

Comments

Complement of A049551 relative to A000040.

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000040, A049551.

Sequence in context: A139650 A139977 A141868 * A136068 A045141 A046010

Adjacent sequences: A059241 A059242 A059243 * A059245 A059246 A059247

Keyword

easy,nonn

Author

Klaus Brockhaus, Jan 21 2001

Status

approved