A040092 Primes p such that x^3 = 22 has no solution mod p.

13, 19, 31, 37, 61, 109, 127, 139, 151, 157, 193, 199, 211, 223, 241, 271, 277, 283, 307, 313, 337, 349, 367, 379, 397, 409, 421, 433, 439, 463, 487, 499, 523, 541, 547, 577, 601, 607, 619, 631, 643, 691, 709

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A376830 A115093 A158195 * A079130 A243587 A085413

Adjacent sequences: A040089 A040090 A040091 * A040093 A040094 A040095

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved