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 A213721 #15 Sep 04 2013 10:28:11
%S A213721 2,7,31,67,97,103,157,199,277,223,307,383,439,367,547,463,673,613,577,
%T A213721 751,643,733,787,727,853,983,997,967,1171,1223,1063,1087,1123,1613,
%U A213721 1237,1279,1471,1453,1669,1423,1483,1597,1627,1543,1567,1747,2039,1753,1867,1951
%N A213721 Smallest prime that is the sum of four nonzero squares in exactly n ways.
%H A213721 <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%e A213721 a(2) = 31 because 31 = 2*1 + 4 + 25 = 4 + 3*9.
%t A213721 lst = {}; Do[p = 2; While[True, If[PrimeQ[p] && Length@Select[PowersRepresentations[p, 4, 2], ! MemberQ[#, 0] &] == n, AppendTo[lst, p]; Break[]]; p++], {n, 0, 49}]; lst
%Y A213721 Cf. A025416.
%K A213721 nonn
%O A213721 0,1
%A A213721 _Arkadiusz Wesolowski_, Nov 02 2012