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

2, 3, 7, 11, 13, 19, 23, 31, 37, 43, 47, 59, 61, 67, 71, 73, 79, 83, 97, 103, 107, 109, 127, 131, 139, 151, 157, 163, 167, 179, 181, 191, 193, 199, 211, 223, 227, 229, 239, 241, 251, 263, 271, 277, 283, 307, 311

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Links

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

Programs

Magma

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

Mathematica

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