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 A094712 #10 May 04 2025 17:41:37
%S A094712 2,5,7,13,23,31,37,47,71,79,103,127,151,167,191,199,223,239,263,271,
%T A094712 311,359,367,383,431,439,463,479,487,503,599,607,631,647,719,727,743,
%U A094712 751,823,839,863,887,911,919,967,983,991
%N A094712 Primes that are not the sum of three positive squares.
%C A094712 Except for primes 2, 5, 13 and 37, this sequence consists all primes p such that p = 7 (mod 8). The density of these primes is 0.25.
%H A094712 Chai Wah Wu, <a href="/A094712/b094712.txt">Table of n, a(n) for n = 1..10000</a>
%t A094712 lst={}; lim=32; Do[n=a^2+b^2+c^2; If[n<lim^2 && PrimeQ[n], lst=Union[lst, {n}]], {a, lim}, {b, a, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; Complement[Prime[Range[PrimePi[lst[[ -1]]]]], lst]
%t A094712 Select[Prime[Range[200]],Count[IntegerPartitions[#,{3}],_?(AllTrue[Sqrt[#],IntegerQ]&)]==0&] (* _Harvey P. Dale_, May 04 2025 *)
%Y A094712 Cf. A085317 (primes that are the sum of three positive squares).
%K A094712 nonn
%O A094712 1,1
%A A094712 _T. D. Noe_, May 21 2004