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

2, 3, 11, 23, 47, 59, 61, 71, 73, 83, 107, 131, 167, 179, 191, 193, 227, 239, 251, 263, 311, 347, 359, 383, 419, 431, 443, 467, 479, 491, 503, 563, 577, 587, 599, 613, 647, 659, 661, 683, 719, 743, 757, 827, 839

Offset

1,1

Comments

Complement of A040995 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^6- 3, p] == 0, x, Integers]=!=False; Select[Prime[Range[200]], ok] (* Vincenzo Librandi, Sep 13 2012 *)

Prog

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

Crossrefs

Cf. A000040, A040995.

Sequence in context: A158017 A346605 A091310 * A141123 A263729 A246496

Adjacent sequences: A040991 A040992 A040993 * A040995 A040996 A040997

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved