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 A069263 #12 Feb 02 2021 18:26:22 %S A069263 1,2,10,11,20,100,101,110,111,200,1000,1001,1010,1011,1100,1101,1110, %T A069263 2000,10000,10001,10010,10011,10100,10101,10110,11000,11001,11010, %U A069263 11011,11100,20000,100000 %N A069263 (Sum of digits of n)^3 = sum of digits of n^3. %H A069263 David A. Corneth, <a href="/A069263/b069263.txt">Table of n, a(n) for n = 1..12456</a> (terms < 10^20) %e A069263 Let s(n) = sum of digits of n. Then s(101)^3 = 8 and s(101^3) = s(1030301) = 8, so 101 belongs to the sequence. %t A069263 f[n_] := Apply[Plus, IntegerDigits[n]]; Select[Range[10^5], f[ #^3] == f[ # ]^3 &] %o A069263 (PARI) is(n)=sumdigits(n^3)==sumdigits(n)^3 \\ _Charles R Greathouse IV_, Dec 19 2016 %Y A069263 Cf. A061909. %K A069263 base,nonn %O A069263 1,2 %A A069263 _Joseph L. Pe_, Apr 19 2002