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 A094713 #16 Jun 05 2025 06:33:49
%S A094713 0,1,0,0,1,0,1,1,0,1,0,0,2,1,0,1,2,1,1,0,1,0,2,3,1,3,0,2,1,2,0,3,2,2,
%T A094713 3,0,1,1,0,3,3,2,0,1,2,0,2,0,3,2,3,0,3,4,4,0,5,0,1,5,2,4,2,0,2,2,2,2,
%U A094713 3,3,4,0,0,2,2,0,5,1,5,4,5,2,0,3,0,3,5,2,7,0,4,0,0,5,2,0,7,8,3,2,2,4,5,8,3
%N A094713 Number of ways that prime(n) can be represented as a^2+b^2+c^2 with c >= b >= a > 0.
%H A094713 T. D. Noe, <a href="/A094713/b094713.txt">Table of n, a(n) for n=1..10000</a>
%e A094713 a(13) = 2 because prime(13) = 41 = 1+4+36 = 9+16+16.
%t A094713 lim=25; pLst=Table[0, {PrimePi[lim^2]}]; Do[n=a^2+b^2+c^2; If[n<lim^2 && PrimeQ[n], pLst[[PrimePi[n]]]++ ], {a, lim}, {b, a, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; pLst
%t A094713 Table[Count[PowersRepresentations[Prime[n],3,2], _?(Min[#]>0&)],{n,110}] (* _Harvey P. Dale_, Feb 17 2011 *)
%Y A094713 Cf. A085317 (primes that are the sum of three positive squares), A094712 (primes that are not the sum of three positive squares), A094714 (least prime having exactly n representations as the sum of three positive squares).
%K A094713 nonn
%O A094713 1,13
%A A094713 _T. D. Noe_, May 21 2004