A040983 Primes p such that x^5 = 19 has no solution mod p.

11, 31, 41, 61, 71, 101, 191, 211, 251, 271, 281, 311, 331, 401, 421, 431, 461, 491, 521, 541, 571, 601, 631, 641, 661, 751, 761, 811, 821, 881, 911, 941, 971, 991, 1061, 1091, 1171, 1201, 1231, 1301, 1321, 1361, 1381, 1451, 1471, 1481

Offset

1,1

Comments

Complement of A040982 relative to A000040. - Vincenzo Librandi, Sep 19 2012

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A040160 A040981 A181603 * A040979 A181182 A089347

Adjacent sequences: A040980 A040981 A040982 * A040984 A040985 A040986

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved