A040049 Primes p such that x^3 = 7 has a solution mod p.

2, 3, 5, 7, 11, 17, 19, 23, 29, 41, 47, 53, 59, 71, 73, 83, 89, 101, 107, 113, 131, 137, 149, 157, 167, 173, 179, 181, 191, 197, 223, 227, 233, 239, 251, 257, 263, 269, 281, 293, 311, 313, 317, 331, 337, 347, 353

Offset

1,1

Comments

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

Crossrefs

Cf. A000040, A040050.

Sequence in context: A293194 A162566 A040085 * A092787 A181562 A095365

Adjacent sequences: A040046 A040047 A040048 * A040050 A040051 A040052

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved