This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A268155 #12 Sep 08 2022 08:46:15 %S A268155 3,5,11,17,19,37,43,53,61,71,83,97,103,149,151,167,173,181,193,229, %T A268155 233,241,271,277,293,307,311,337,347,359,367,373,383,397,401,409,421, %U A268155 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 %N A268155 Primes which are squares (mod 229). %C A268155 Appears to be the union of the two disjoint subsequences A141165 and A141166. %t A268155 Select[Prime[Range[140]], JacobiSymbol[#, 229] != -1 &] (* _Bruno Berselli_, Jan 27 2016 *) %o A268155 (PARI) forprime(p=2,700,issquare(Mod(p,229))&&print1(p",")) %o A268155 (Magma) [p: p in PrimesUpTo(800) | JacobiSymbol(p, 229) ne -1]; // _Bruno Berselli_, Jan 27 2016 %K A268155 nonn %O A268155 1,1 %A A268155 _M. F. Hasler_, Jan 27 2016