A040107 Primes p such that x^4 = 6 has a solution mod p.

2, 3, 5, 19, 23, 43, 47, 67, 71, 97, 139, 149, 163, 167, 173, 191, 211, 239, 241, 263, 283, 307, 311, 331, 359, 379, 383, 389, 409, 431, 457, 461, 479, 499, 503, 523, 547, 557, 571, 577, 599, 601, 619, 643, 647

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A215320 A215357 A235639 * A254670 A348900 A161414

Adjacent sequences: A040104 A040105 A040106 * A040108 A040109 A040110

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved