A040096 Primes p such that x^3 = 23 has no solution mod p.

7, 13, 19, 43, 67, 73, 79, 97, 127, 151, 181, 199, 223, 229, 277, 283, 307, 331, 337, 349, 367, 397, 409, 421, 433, 439, 457, 487, 499, 523, 541, 547, 577, 601, 607, 619, 631, 643, 661, 691, 709, 733, 739, 751

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A058383 A005471 A249381 * A358322 A181938 A073648

Adjacent sequences: A040093 A040094 A040095 * A040097 A040098 A040099

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved