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 A098838 #11 Mar 14 2025 09:50:33
%S A098838 27,729,19683,474552,7077888,7414875,8489664,62099136,112678587,
%T A098838 236029032,246491883,257259456,279726264,345948408,463684824,
%U A098838 567663552,638277381,721734273,766060875,988047936,1177583616,1412467848,2131746903,2493326016,2714704875
%N A098838 Smith cubic numbers.
%H A098838 Donovan Johnson, <a href="/A098838/b098838.txt">Table of n, a(n) for n = 1..10000</a>
%H A098838 Shyam Sunder Gupta, <a href="https://doi.org/10.1007/978-981-97-2465-9_4">Smith Numbers</a>, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 4, 127-157.
%e A098838 a(1) = 27 because 27 is a Smith number as well as a cube.
%t A098838 d[n_]:=IntegerDigits[n]; tr[n_]:=Transpose[FactorInteger[n]]; t={}; Do[If[!PrimeQ[n]&&Total[d[n]]==Total[d@tr[n][[1]]*tr[n][[2]],2],AppendTo[t,n]],{n,Range[2,1400]^3}]; t (* _Jayanta Basu_, Jun 04 2013 *)
%Y A098838 Cf. A006753.
%K A098838 base,nonn
%O A098838 1,1
%A A098838 _Shyam Sunder Gupta_, Oct 10 2004