A040050 Primes p such that x^3 = 7 has no solution mod p.

13, 31, 37, 43, 61, 67, 79, 97, 103, 109, 127, 139, 151, 163, 193, 199, 211, 229, 241, 271, 277, 283, 307, 349, 379, 397, 409, 433, 457, 499, 523, 547, 577, 601, 613, 619, 631, 643, 691, 709, 727, 733, 739, 757

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A023694 A038465 A103665 * A040086 A176181 A023274

Adjacent sequences: A040047 A040048 A040049 * A040051 A040052 A040053

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved