A040126 Primes p such that x^4 = 13 has a solution mod p.

2, 3, 13, 17, 23, 43, 53, 61, 79, 103, 107, 127, 131, 139, 179, 181, 191, 199, 211, 251, 263, 283, 311, 337, 347, 367, 389, 419, 439, 443, 467, 491, 503, 523, 547, 563, 571, 599, 607, 641, 647, 659, 673, 677, 701

Offset

1,1

Links

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

Mathematica

ok [p_]:=Reduce[Mod[x^4 - 13, 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 13}]; // Vincenzo Librandi, Sep 12 2012

Crossrefs

Sequence in context: A045341 A236950 A215322 * A215382 A144759 A215359

Adjacent sequences: A040123 A040124 A040125 * A040127 A040128 A040129

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved