A040078 Primes p such that x^3 = 17 has a solution mod p.

2, 3, 5, 11, 17, 23, 29, 41, 47, 53, 59, 71, 73, 79, 83, 89, 101, 107, 109, 113, 131, 137, 149, 163, 167, 173, 179, 191, 197, 199, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 281, 293, 307, 311, 317, 337, 347

Offset

1,1

Comments

Complement of A040079 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^3 - 17, p] == 0, x, Integers] =!= False;  Select[Prime[Range[180]], ok] (* Vincenzo Librandi, Sep 11 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(450) | exists(t){x : x in ResidueClassRing(p) | x^3 eq 17}]; // Vincenzo Librandi, Sep 11 2012

Crossrefs

Cf. A000040, A040079.

Sequence in context: A040054 A093503 A040036 * A045309 A103664 A360053

Adjacent sequences: A040075 A040076 A040077 * A040079 A040080 A040081

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved