A040084 Primes p such that x^3 = 19 has no solution mod p.

7, 13, 31, 37, 43, 61, 67, 73, 79, 103, 139, 157, 163, 193, 199, 211, 223, 229, 241, 331, 337, 349, 367, 379, 397, 433, 439, 457, 463, 499, 523, 541, 547, 571, 601, 607, 619, 631, 643, 673, 709, 727, 739, 751

Offset

1,1

Comments

Complement of A040083 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 - 19, 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 19} ]; // Vincenzo Librandi, Sep 17 2012

Crossrefs

Sequence in context: A273757 A073473 A272407 * A151723 A046139 A023243

Adjacent sequences: A040081 A040082 A040083 * A040085 A040086 A040087

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved