A191039 Primes that are squares mod 61.

3, 5, 13, 19, 41, 47, 73, 83, 97, 103, 107, 109, 113, 127, 131, 137, 149, 163, 167, 179, 197, 199, 229, 239, 241, 257, 263, 269, 271, 283, 293, 317, 347, 353, 367, 379, 431, 439, 443, 449, 461, 463, 479, 487, 491, 503, 563, 569, 571, 601, 607, 613, 619, 659

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A360884 A038941 A141215 * A240278 A106915 A112928

Adjacent sequences: A191036 A191037 A191038 * A191040 A191041 A191042

Keyword

nonn,easy

Author

T. D. Noe, May 25 2011

Status

approved