A040064 Primes p such that x^3 = 12 has no solution mod p.

7, 31, 37, 43, 61, 67, 73, 103, 109, 127, 139, 151, 157, 163, 181, 193, 223, 229, 241, 271, 277, 283, 313, 337, 349, 367, 379, 397, 409, 421, 433, 457, 523, 541, 547, 571, 577, 601, 607, 613, 619, 631, 661, 691

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A167768 A103630 A205711 * A241101 A238664 A272201

Adjacent sequences: A040061 A040062 A040063 * A040065 A040066 A040067

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved