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

2, 3, 5, 7, 13, 17, 19, 23, 29, 37, 43, 47, 53, 59, 67, 71, 73, 79, 83, 89, 97, 103, 107, 109, 113, 127, 137, 139, 149, 157, 163, 167, 173, 179, 193, 197, 199, 223, 227, 229, 233, 239, 251, 257, 263, 269, 277, 283, 293, 307, 311, 313, 317, 337, 347, 349, 353, 359, 367, 373, 379

Offset

1,1

Comments

Complement of A040985 relative to A000040.

Links

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

Mathematica

ok[p_]:=Reduce[Mod[x^5-20, p]==0, x, Integers]=!=False; Select[Prime[Range[150]], ok]

Prog

(Magma) [p: p in PrimesUpTo(400) | exists(t){x : x in ResidueClassRing(p) | x^5 eq 20}];

Crossrefs

Sequence in context: A040161 A175438 A040970 * A040978 A040982 A040980

Adjacent sequences: A216859 A216860 A216861 * A216863 A216864 A216865

Keyword

nonn,easy

Author

Vincenzo Librandi, Sep 19 2012

Status

approved