OFFSET
1,1
MATHEMATICA
Select[Prime[Range[140]], JacobiSymbol[#, 229] != -1 &] (* Bruno Berselli, Jan 27 2016 *)
PROG
(PARI) forprime(p=2, 700, issquare(Mod(p, 229))&&print1(p", "))
(Magma) [p: p in PrimesUpTo(800) | JacobiSymbol(p, 229) ne -1]; // Bruno Berselli, Jan 27 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 27 2016
STATUS
approved