A040145 Primes p such that x^4 = 19 has a solution mod p.

2, 3, 19, 31, 59, 67, 71, 79, 101, 103, 107, 127, 149, 151, 157, 167, 179, 211, 223, 227, 229, 233, 277, 307, 313, 331, 349, 379, 383, 397, 431, 439, 457, 461, 487, 523, 547, 557, 563, 577, 593, 599, 607, 613

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A341599 A265799 A058912 * A142955 A213896 A088790

Adjacent sequences: A040142 A040143 A040144 * A040146 A040147 A040148

Keyword

nonn,easy

Author

N. J. A. Sloane.

Status

approved