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 A165551 #16 Nov 21 2024 15:30:16 %S A165551 0,1,2,10,20,31,100,103,123,200,203,301,302,310,1000,1003,1030,1230, %T A165551 1302,1312,1321,2000,2003,2030,2312,3001,3002,3010,3020,3032,3100, %U A165551 3112,3211,3213,3221,10000,10003,10030,10033,10232,10300,10303,11223,12033 %N A165551 Sum of cube of digits is sum of digits of cube. %H A165551 Harvey P. Dale, <a href="/A165551/b165551.txt">Table of n, a(n) for n = 0..1000</a> %e A165551 For n=31, n^3=29791, sum of digits of cube is 2+9+7+9+1=28, sum of cube of digits is 3^3+1=27+1=28, thus 31 appears in the sequence. %t A165551 Select[Range[0,13000],Total[IntegerDigits[#^3]]==Total[IntegerDigits[ #]^3]&] (* _Harvey P. Dale_, Nov 13 2011 *) %o A165551 (PARI) %o A165551 cubdigsum(n) = local(s=0);while(n,s=s+(n%10)^3;n=n\10);return(s) %o A165551 for(n=0,100000, if(cubdigsum(n)==sumdigits(n^3), print1(n, ",") ) ) %Y A165551 Cf. A007953, A055012, A165550. %K A165551 base,easy,nonn %O A165551 0,3 %A A165551 _Rémy Sigrist_, Sep 21 2009