A040982 Primes p such that x^5 = 19 has a solution mod p.

2, 3, 5, 7, 13, 17, 19, 23, 29, 37, 43, 47, 53, 59, 67, 73, 79, 83, 89, 97, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 193, 197, 199, 223, 227, 229, 233, 239, 241, 257, 263, 269

Offset

1,1

Comments

Complement of A040983 relative to A000040. [Bruno Berselli, Sep 12 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[150]], ok] (* Vincenzo Librandi, Sep 12 2012 *)

Prog

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

Crossrefs

Cf. A000040, A040983.

Sequence in context: A040970 A216862 A040978 * A040980 A040159 A040171

Adjacent sequences: A040979 A040980 A040981 * A040983 A040984 A040985

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved