A268155 Primes which are squares (mod 229).

3, 5, 11, 17, 19, 37, 43, 53, 61, 71, 83, 97, 103, 149, 151, 167, 173, 181, 193, 229, 233, 241, 271, 277, 293, 307, 311, 337, 347, 359, 367, 373, 383, 397, 401, 409, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 491, 503, 509, 541, 557, 569, 587, 593, 607, 617, 619, 631, 641, 643, 661, 673, 683, 691, 701, 733, 743, 751, 757

Offset

1,1

Comments

Appears to be the union of the two disjoint subsequences A141165 and A141166.

Links

Table of n, a(n) for n=1..69.

Mathematica

Select[Prime[Range[140]], JacobiSymbol[#, 229] != -1 &] (* Bruno Berselli, Jan 27 2016 *)

Prog

(PARI) forprime(p=2, 700, issquare(Mod(p, 229))&&print1(p", "))
(Magma) [p: p in PrimesUpTo(800) | JacobiSymbol(p, 229) ne -1]; // Bruno Berselli, Jan 27 2016

Crossrefs

Sequence in context: A045409 A191206 A191141 * A199217 A141165 A220954

Adjacent sequences: A268152 A268153 A268154 * A268156 A268157 A268158

Keyword

nonn

Author

M. F. Hasler, Jan 27 2016

Status

approved