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

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

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A344620 A042990 A040169 * A162950 A259187 A040972

Adjacent sequences: A040162 A040163 A040164 * A040166 A040167 A040168

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved