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,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

Sequence in context: A078721 A077007 A158498 * A155548 A191033 A105554

Adjacent sequences: A267598 A267599 A267600 * A267602 A267603 A267604

Keyword

nonn

Author

M. F. Hasler, Jan 18 2016

Status

approved