A165551 Sum of cube of digits is sum of digits of cube.

0, 1, 2, 10, 20, 31, 100, 103, 123, 200, 203, 301, 302, 310, 1000, 1003, 1030, 1230, 1302, 1312, 1321, 2000, 2003, 2030, 2312, 3001, 3002, 3010, 3020, 3032, 3100, 3112, 3211, 3213, 3221, 10000, 10003, 10030, 10033, 10232, 10300, 10303, 11223, 12033

Offset: 0

Author

Rémy Sigrist, Sep 21 2009

Keywords

• base
• easy
• nonn

Examples

			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.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A007953, A055012, A165550.

Programs

Mathematica

Select[Range[0,13000],Total[IntegerDigits[#^3]]==Total[IntegerDigits[ #]^3]&] (* Harvey P. Dale, Nov 13 2011 *)

PARI

cubdigsum(n) = local(s=0);while(n,s=s+(n%10)^3;n=n\10);return(s)
for(n=0,100000, if(cubdigsum(n)==sumdigits(n^3), print1(n, ",") ) )