A040980 Primes p such that x^5 = 18 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, 157, 163, 167, 173, 179, 193, 197, 199, 223, 227, 229, 233, 239, 257, 263, 269, 277, 283, 293

Offset

1,1

Comments

Complement of A040981 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 - 18, 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 18}]; // Vincenzo Librandi, Sep 12 2012

Crossrefs

Cf. A000040, A040981.

Sequence in context: A216862 A040978 A040982 * A040159 A040171 A040974

Adjacent sequences: A040977 A040978 A040979 * A040981 A040982 A040983

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved