login
A267601
Primes which are squares (mod 47).
3
2, 3, 7, 17, 37, 47, 53, 59, 61, 71, 79, 83, 89, 97, 101, 103, 131, 149, 157, 173, 191, 197, 239, 241, 251, 263, 269, 271, 277, 283, 307, 331, 337, 347, 353, 379, 383, 397, 401, 431, 439, 457, 479, 487, 491, 521, 523, 541, 571, 601, 613, 617, 619, 643, 647, 653, 659, 661, 683, 709, 719, 733, 739, 761, 769, 773, 811, 823, 827, 853
OFFSET
1,1
COMMENTS
Motivated by A191056, previously having an (erroneous) definition equivalent to this one.
LINKS
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
Sequence in context: A078721 A077007 A158498 * A155548 A191033 A105554
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 18 2016
STATUS
approved