login
A268155
Primes which are squares (mod 229).
2
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.
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
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 27 2016
STATUS
approved