A040045 Primes p such that x^3 = 5 has no solution mod p.

7, 19, 31, 37, 43, 61, 73, 79, 97, 103, 109, 139, 151, 157, 193, 223, 229, 271, 277, 283, 307, 331, 349, 373, 397, 421, 433, 439, 463, 499, 523, 541, 547, 571, 577, 601, 607, 613, 619, 661, 673, 709, 727, 751

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A109355 A272404 A274971 * A242476 A079021 A216133

Adjacent sequences: A040042 A040043 A040044 * A040046 A040047 A040048

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved