A040066 Primes p such that x^3 = 13 has no solution mod p.

19, 31, 37, 43, 61, 67, 73, 79, 97, 109, 127, 139, 151, 157, 181, 199, 241, 283, 307, 313, 331, 337, 349, 367, 379, 397, 433, 439, 457, 463, 487, 523, 541, 547, 571, 577, 607, 613, 631, 643, 673, 691, 727, 733

Offset

1,1

Comments

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

Crossrefs

Sequence in context: A250216 A125148 A214798 * A339465 A279192 A159043

Adjacent sequences: A040063 A040064 A040065 * A040067 A040068 A040069

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved