A040083 Primes p such that x^3 = 19 has a solution mod p.

2, 3, 5, 11, 17, 19, 23, 29, 41, 47, 53, 59, 71, 83, 89, 97, 101, 107, 109, 113, 127, 131, 137, 149, 151, 167, 173, 179, 181, 191, 197, 227, 233, 239, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317

Offset

1,1

Comments

Complement of A040084 relative to A000040. - Vincenzo Librandi, Sep 13 2012

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

ok [p_]:=Reduce[Mod[x^3 - 19, p] == 0, x, Integers] =!= False;  Select[Prime[Range[180]], ok] (* Vincenzo Librandi, Sep 11 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(450) | exists(t){x : x in ResidueClassRing(p) | x^3 eq 19}]; // Vincenzo Librandi, Sep 11 2012

Crossrefs

Cf. A000040, A040084.

Sequence in context: A175179 A040060 A220627 * A045308 A245639 A362239

Adjacent sequences: A040080 A040081 A040082 * A040084 A040085 A040086

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved