A040128 Primes p such that x^4 = 14 has a solution mod p.

2, 7, 11, 13, 31, 43, 47, 67, 103, 107, 113, 137, 157, 163, 167, 173, 179, 181, 199, 211, 223, 229, 269, 271, 311, 331, 347, 349, 367, 379, 383, 397, 401, 439, 443, 461, 479, 491, 499, 503, 509, 547, 569, 571

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A339862 A045370 A117048 * A209630 A235266 A140548

Adjacent sequences: A040125 A040126 A040127 * A040129 A040130 A040131

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved