login
Sum of cube of digits is sum of digits of cube.
2

%I #16 Nov 21 2024 15:30:16

%S 0,1,2,10,20,31,100,103,123,200,203,301,302,310,1000,1003,1030,1230,

%T 1302,1312,1321,2000,2003,2030,2312,3001,3002,3010,3020,3032,3100,

%U 3112,3211,3213,3221,10000,10003,10030,10033,10232,10300,10303,11223,12033

%N Sum of cube of digits is sum of digits of cube.

%H Harvey P. Dale, <a href="/A165551/b165551.txt">Table of n, a(n) for n = 0..1000</a>

%e 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 Select[Range[0,13000],Total[IntegerDigits[#^3]]==Total[IntegerDigits[ #]^3]&] (* _Harvey P. Dale_, Nov 13 2011 *)

%o (PARI)

%o cubdigsum(n) = local(s=0);while(n,s=s+(n%10)^3;n=n\10);return(s)

%o for(n=0,100000, if(cubdigsum(n)==sumdigits(n^3), print1(n, ",") ) )

%Y Cf. A007953, A055012, A165550.

%K base,easy,nonn

%O 0,3

%A _Rémy Sigrist_, Sep 21 2009