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 A165158 #10 Aug 27 2024 15:26:18
%S A165158 65,85,125,145,169,185,205,221,265,289,305,325,365,377,425,445,481,
%T A165158 485,493,505,533,545,565,625,629,685,689,697,725,745,785,793,845,865,
%U A165158 901,905,925,949,965,985,1025,1037,1073,1105,1145,1157,1165,1189,1205,1241
%N A165158 Hypotenuses of primitive Pythagorean triangles such that all 3 sides are composite.
%C A165158 Numbers C in triples of the form A^2+B^2=C^2, gcd(A,B,C)=1 and all of A, B and C in A002808.
%C A165158 If multiple solutions exist for the same C, as for example (A,B,C) = (16,63,65) and (33,56,65),
%C A165158 only one instance of C is added to the sequence.
%e A165158 (A,B,C) = (16,63,65), (36,77,85), (44,117,125) etc
%t A165158 lst={};Do[Do[If[IntegerQ[a=Sqrt[c^2-b^2]]&&GCD[a,b,c]==1,If[a>=b,Break[]]; If[ !PrimeQ[a]&&!PrimeQ[b]&&!PrimeQ[c],AppendTo[lst,c]]],{b,c-1,4, -1}],{c,5,2000,1}];Union@lst
%t A165158 Select[Sort[{Numerator[#],Denominator[#],Sqrt[Numerator[#]^2+Denominator[#]^2]}&/@ Union[ #[[1]]/#[[2]]&/@Union[Sort/@Select[Select[Flatten[Outer[List,Range[1500],Range[ 1500]],1],#[[1]]!=#[[2]]&],IntegerQ[Sqrt[#[[1]]^2+#[[2]]^2]]&]]]],AllTrue[#,CompositeQ]&][[;;,3]]//Union (* _Harvey P. Dale_, Aug 27 2024 *)
%Y A165158 Cf. A020882, A165159
%K A165158 nonn
%O A165158 1,1
%A A165158 _Vladimir Joseph Stephan Orlovsky_, Sep 06 2009
%E A165158 Typo in description corrected by _Alan Frank_, Oct 09 2009
%E A165158 Definition clarified, comment moved to the examples and new comment added - _R. J. Mathar_, Oct 21 2009