A040978 Primes p such that x^5 = 17 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, 101, 103, 107, 109, 113, 127, 137, 139, 149, 157, 163, 167, 173, 179, 181, 193, 197, 199, 223, 227, 229, 233, 239, 257, 263, 269, 277, 283

Offset

1,1

Comments

Complement of A040979 relative to A000040. - Vincenzo Librandi, Sep 13 2012

Links

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

Mathematica

ok[p_] := Reduce[Mod[x^5 - 17, 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 17}]; // Vincenzo Librandi, Sep 19 2012

Crossrefs

Cf. A000040, A040979.

Sequence in context: A175438 A040970 A216862 * A040982 A040980 A040159

Adjacent sequences: A040975 A040976 A040977 * A040979 A040980 A040981

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved