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 A180738 #15 Oct 05 2019 04:45:05
%S A180738 8,0,512,8000,74088,804357,8000000,74088000,804357000,9474296896,
%T A180738 99832769119,999100269973,9970304382667,99910262316808,
%U A180738 999100269973000,9981565340125231,99912200160380167,999100269973000000
%N A180738 Largest n-digit cube whose sum of digits is also a cube, or 0 if there is no such number.
%t A180738 Join[{8,0},Table[Module[{c=Floor[Surd[10^n-1,3]]^3},While[!IntegerQ[ Surd[Total[IntegerDigits[c]],3]],c=(Surd[c,3]-1)^3];c],{n,3,20}]] (* _Harvey P. Dale_, May 28 2015 *)
%Y A180738 Cf. A053058, A180737.
%K A180738 nonn,base,easy
%O A180738 1,1
%A A180738 _Daniel Mondot_, Oct 08 2010
%E A180738 Corrected by _Arkadiusz Wesolowski_ at the suggestion of _T. D. Noe_, Jun 08 2011