A191056 -id:A191056 - cp's OEIS frontend

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

M. F. Hasler, Jan 18 2016

nonn

Motivated by A191056, previously having an (erroneous) definition equivalent to this one.

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

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

A191086 Primes p that have Kronecker symbol (p|94) = -1.

Original entry on oeis.org

3, 23, 31, 37, 41, 53, 59, 61, 73, 83, 101, 113, 127, 131, 137, 149, 151, 157, 167, 173, 193, 197, 199, 223, 233, 251, 257, 269, 277, 281, 283, 307, 311, 313, 331, 347, 359, 367, 379, 397, 409, 433, 449, 463, 491, 503, 523, 541, 569, 571, 577, 593, 599, 607

Offset: 1

T. D. Noe, May 25 2011

Originally erroneously named "Primes that are not squares mod 94". - M. F. Hasler, Jan 18 2016

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

Cf. A191056.

[p: p in PrimesUpTo(607) | KroneckerSymbol(p, 94) eq -1]; // Vincenzo Librandi, Sep 11 2012

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

Definition corrected, following a suggestion from David Broadhurst, by M. F. Hasler, Jan 18 2016

cp's OEIS Frontend

A267601 Primes which are squares (mod 47).

Views

Author

Keywords

Comments

Links

Programs

Mathematica

PARI