A040130 - OEIS

A040130

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

2, 3, 5, 7, 11, 43, 53, 59, 61, 67, 71, 103, 109, 113, 127, 131, 137, 163, 179, 181, 191, 223, 239, 241, 251, 257, 283, 307, 311, 317, 349, 359, 367, 419, 431, 463, 479, 487, 491, 523, 541, 547, 557, 593, 599, 607

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

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

CROSSREFS

Sequence in context: A215162 A059999 A237438 * A127727 A232183 A289862

Adjacent sequences: A040127 A040128 A040129 * A040131 A040132 A040133

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane.

STATUS

approved