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 A165454 #16 Oct 14 2020 13:24:16
%S A165454 6,15,27,48,53,59,71,78,84,87,90,96,98,116,120,121,125,134,153,162,
%T A165454 163,167,180,188,204,213,216,224,225,226,230,240,242,244,251,253,255,
%U A165454 262,264,280,287,288,303,314,324,330,342,350,356,363,368,372,381,384,393
%N A165454 Numbers the squares of which are sums of three distinct positive cubes.
%H A165454 Chai Wah Wu, <a href="/A165454/b165454.txt">Table of n, a(n) for n = 1..10000</a>
%F A165454 {k >0: k^2 in A024975}. [_R. J. Mathar_, Oct 06 2009]
%e A165454 6 is in the sequence because 6^2 = 1^3+2^3+3^3.
%e A165454 15 is in the sequence because 15^2 = 1^3+2^3+6^3.
%p A165454 N:= 1000: # to get all terms <= N
%p A165454 sc:= {seq(seq(seq(a^3 + b^3 + c^3, a = 1 .. min(b-1, floor((N^2 - b^3 - c^3)^(1/3)))), b = 2 .. min(c-1,floor((N^2 - c^3)^(1/3)))), c = 3 .. floor(N^(2/3)))}:
%p A165454 select(t -> member(t^2,sc), [$1..N]); # _Robert Israel_, Jan 27 2015
%t A165454 lst={};Do[Do[Do[d=Sqrt[a^3+b^3+c^3];If[d<=834&&IntegerQ[d],AppendTo[lst, d]],{c,b+1,5!,1}],{b,a+1,5!,1}],{a,5!}];Take[Union@lst,123]
%t A165454 Sqrt[# ]&/@Select[Total/@Subsets[Range[50]^3,{3}],IntegerQ[Sqrt[#]]&]// Union (* _Harvey P. Dale_, Oct 14 2020 *)
%Y A165454 Cf. A161992, A024973, A025399
%K A165454 nonn
%O A165454 1,1
%A A165454 _Vladimir Joseph Stephan Orlovsky_, Sep 20 2009
%E A165454 Comments moved to the examples by _R. J. Mathar_, Oct 07 2009
%E A165454 Title corrected by _Jeppe Stig Nielsen_, Jan 26 2015