A191033 Primes that are squares mod 47.

2, 3, 7, 17, 37, 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

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[200]], JacobiSymbol[#, 47]==1&]

Prog

(Magma) [p: p in PrimesUpTo(653) | JacobiSymbol(p, 47) eq 1]; // Vincenzo Librandi, Sep 10 2012

Crossrefs

Sequence in context: A158498 A267601 A155548 * A105554 A145230 A135364

Adjacent sequences: A191030 A191031 A191032 * A191034 A191035 A191036

Keyword

nonn,easy

Author

T. D. Noe, May 24 2011

Status

approved