A040079 Primes p such that x^3 = 17 has no solution mod p.

7, 13, 19, 31, 37, 43, 61, 67, 97, 103, 127, 139, 151, 157, 181, 193, 211, 271, 277, 283, 313, 331, 367, 379, 409, 421, 433, 439, 463, 487, 499, 547, 571, 577, 601, 607, 613, 631, 643, 661, 673, 691, 709, 727

Offset

1,1

Comments

Complement of A040078 relative to A000040. - Vincenzo Librandi, Sep 17 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[200]], ok] (* Vincenzo Librandi, Sep 17 2012  *)

Prog

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

Crossrefs

Sequence in context: A272409 A272406 A272384 * A038160 A106870 A040038

Adjacent sequences: A040076 A040077 A040078 * A040080 A040081 A040082

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved