A191073 Primes that are not squares mod 51.

2, 7, 31, 37, 47, 53, 59, 61, 73, 79, 83, 89, 97, 101, 109, 137, 139, 149, 163, 179, 181, 191, 193, 199, 211, 239, 241, 251, 257, 263, 277, 281, 283, 293, 313, 337, 353, 359, 367, 379, 383, 389, 397, 439, 443, 461, 467, 487, 491, 499, 509, 541, 547, 557, 563

Offset

1,1

Links

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(563) | JacobiSymbol(p, 51) eq -1]; // Vincenzo Librandi, Sep 11 2012

Crossrefs

Sequence in context: A249474 A193353 A102158 * A049576 A298169 A213721

Adjacent sequences: A191070 A191071 A191072 * A191074 A191075 A191076

Keyword

nonn,easy

Author

T. D. Noe, May 25 2011

Status

approved