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 A214512 #6 Jul 30 2012 06:48:48
%S A214512 12,219,363,699,1179,2019,2259,3891,4059,6459,5379,10899,13179,10659,
%T A214512 12579,21819,20979,26859,34419,38379,41019,61299,39459,41811,82131,
%U A214512 50379,77451,71379,141099,85491,103971,74571,180411,108339,179739,161139,126819,225099
%N A214512 Least number having n orderless representations as p^2 + q^2 + r^2, where p, q, and r are primes.
%H A214512 Donovan Johnson, <a href="/A214512/b214512.txt">Table of n, a(n) for n = 1..1000</a>
%t A214512 nn = 10^6; ps = Prime[Range[PrimePi[Sqrt[nn]]]]; t = Flatten[Table[ps[[i]]^2 + ps[[j]]^2 + ps[[k]]^2, {i, Length[ps]}, {j, i, Length[ps]}, {k, j, Length[ps]}]]; t = Select[t, # <= nn &]; t2 = Sort[Tally[t]]; u = Union[Transpose[t2][[2]]]; d = Complement[Range[u[[-1]]], u]; If[d == {}, nLim = u[[-1]], nLim = d[[1]]-1]; t3 = Table[Select[t2, #[[2]] == n &, 1][[1]], {n, nLim}]; Transpose[t3][[1]]
%Y A214512 Cf. A025414, A025415, A214511, A214513.
%K A214512 nonn
%O A214512 1,1
%A A214512 _T. D. Noe_, Jul 29 2012