A040068 Primes p such that x^3 = 14 has no solution mod p.

19, 31, 43, 61, 73, 97, 109, 127, 151, 163, 181, 199, 211, 229, 241, 271, 277, 283, 307, 313, 331, 337, 349, 367, 373, 397, 421, 433, 457, 463, 487, 499, 541, 547, 571, 601, 607, 613, 631, 643, 661, 673, 691

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A157995 A043298 A286313 * A096787 A104006 A117065

Adjacent sequences: A040065 A040066 A040067 * A040069 A040070 A040071

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved