A040046 Primes p such that x^3 = 6 has a solution mod p.

2, 3, 5, 7, 11, 17, 23, 29, 37, 41, 47, 53, 59, 71, 83, 89, 101, 107, 113, 131, 137, 139, 149, 163, 167, 173, 179, 181, 191, 197, 227, 233, 239, 241, 251, 257, 263, 269, 281, 293, 307, 311, 313, 317, 337, 347, 349

Offset

1,1

Comments

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

Crossrefs

Cf. A000040, A040047.

Sequence in context: A058982 A040069 A057751 * A075551 A070866 A237285

Adjacent sequences: A040043 A040044 A040045 * A040047 A040048 A040049

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved