editing
approved
editing
approved
(MAGMAMagma) [ p: p in PrimesUpTo(919) | exists(t){x : x in ResidueClassRing(p) | x^4 eq 2} ]; // Klaus Brockhaus, Dec 02 2008
approved
editing
proposed
approved
editing
proposed
T. D. Noe, <a href="/A040098/b040098.txt">Table of n, a(n) for n = 1..1000</a>
(MAGMA) [ p: p in PrimesUpTo(919) | exists(t){x : x in ResidueClassRing(p) | x^4 eq 2} ]; [From // _Klaus Brockhaus, _, Dec 02 2008]
(PARI) forprime(p=2, 2000, if([]~!=polrootsmod(x^4-2, p), print1(p, ", "))); print(); \\ _Joerg Arndt_, Jul 27 2011
/* Joerg Arndt, Jul 27 2011 */
approved
editing
editing
approved
ok[p_] := Reduce[ Mod[x^4 - 2, p] == 0, x, Integers] =!= False; Select[ Prime[ Range[200]], ok] (* From _Jean-François Alcover, _, Dec 14 2011 *)
proposed
approved
editing
proposed