A040054 Primes p such that x^3 = 10 has a solution mod p.

2, 3, 5, 11, 17, 23, 29, 37, 41, 47, 53, 59, 71, 73, 79, 83, 89, 101, 103, 107, 113, 127, 131, 137, 139, 149, 167, 173, 179, 191, 197, 227, 233, 239, 251, 257, 263, 269, 271, 281, 293, 311, 317, 331, 347, 349, 353

Offset

1,1

Comments

Complement of A040058 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 - 10, 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 10}]; // Vincenzo Librandi, Sep 11 2012

Crossrefs

Cf. A000040, A040058.

Sequence in context: A049571 A263090 A098058 * A093503 A040036 A040078

Adjacent sequences: A040051 A040052 A040053 * A040055 A040056 A040057

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved