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 A267601 #9 Jan 26 2016 19:28:03 %S A267601 2,3,7,17,37,47,53,59,61,71,79,83,89,97,101,103,131,149,157,173,191, %T A267601 197,239,241,251,263,269,271,277,283,307,331,337,347,353,379,383,397, %U A267601 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 %N A267601 Primes which are squares (mod 47). %C A267601 Motivated by A191056, previously having an (erroneous) definition equivalent to this one. %H A267601 Harvey P. Dale, <a href="/A267601/b267601.txt">Table of n, a(n) for n = 1..1000</a> %t A267601 Select[Prime[Range[200]],JacobiSymbol[#,47]!=-1&] (* _Harvey P. Dale_, Jan 26 2016 *) %o A267601 (PARI) forprime(p=1,999,issquare(Mod(p,47))&&print1(p",")) %K A267601 nonn %O A267601 1,1 %A A267601 _M. F. Hasler_, Jan 18 2016