A267601 Primes which are squares (mod 47).

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

Author

M. F. Hasler, Jan 18 2016

Keywords

• nonn

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

Programs

Mathematica

Select[Prime[Range[200]],JacobiSymbol[#,47]!=-1&] (* Harvey P. Dale, Jan 26 2016 *)

PARI

forprime(p=1,999,issquare(Mod(p,47))&&print1(p","))