A040070 Primes p such that x^3 = 15 has no solution mod p.

13, 19, 37, 43, 61, 73, 97, 103, 109, 127, 139, 151, 157, 163, 181, 193, 199, 211, 241, 271, 307, 313, 337, 349, 373, 379, 409, 421, 433, 439, 457, 487, 499, 523, 547, 577, 601, 607, 613, 619, 631, 661, 691, 709

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A088186 A089490 A057749 * A322923 A048523 A307627

Adjacent sequences: A040067 A040068 A040069 * A040071 A040072 A040073

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved