A040124 Primes p such that x^4 = 12 has a solution mod p.

2, 3, 11, 23, 37, 47, 59, 61, 71, 83, 107, 131, 157, 167, 179, 191, 193, 227, 239, 251, 263, 311, 313, 347, 349, 359, 373, 383, 397, 419, 431, 433, 443, 467, 479, 491, 503, 563, 577, 587, 599, 601, 613, 647, 659

Offset

1,1

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(800) | exists{x: x in ResidueClassRing(p) | x^4 eq 12}]; // Vincenzo Librandi, Sep 12 2012
(PARI) select( n->ispower( Mod(12, n), 4), primes(1000) ) /* Joerg Arndt, Sep 12 2012 */

Crossrefs

Cf. A040125.

Sequence in context: A320393 A350853 A080153 * A082739 A158017 A346605

Adjacent sequences: A040121 A040122 A040123 * A040125 A040126 A040127

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved