OFFSET
1,1
COMMENTS
Motivated by A191056, previously having an (erroneous) definition equivalent to this one.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[200]], JacobiSymbol[#, 47]!=-1&] (* Harvey P. Dale, Jan 26 2016 *)
PROG
(PARI) forprime(p=1, 999, issquare(Mod(p, 47))&&print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 18 2016
STATUS
approved