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 A070276 #18 Feb 21 2024 01:45:02 %S A070276 0,1,8,10,80,100,171,378,468,487,577,585,586,684,800,1000,1710,3780, %T A070276 4680,4870,4877,5770,5850,5851,5860,5868,6840,8000,10000,15877,17100, %U A070276 28845,37800,46800,48700,48770,57700,58500,58510,58600,58680,58968,59777 %N A070276 Numbers n such that sum of digits of n equals the sum of digits of n^3. %H A070276 Harvey P. Dale, <a href="/A070276/b070276.txt">Table of n, a(n) for n = 1..100</a> %t A070276 Select[Range[0,60000],Total[IntegerDigits[#]]==Total[IntegerDigits[ #^3]]&] (* _Harvey P. Dale_, May 10 2012 *) %o A070276 (PARI) isok(n) = sumdigits(n) == sumdigits(n^3); \\ _Michel Marcus_, Aug 12 2017 %Y A070276 Cf. A007953, A004164. %K A070276 easy,nonn,base %O A070276 1,3 %A A070276 _Benoit Cloitre_, May 09 2002