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,3

Links

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

Example

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.

Mathematica

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

Prog

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, ", ") ) )

Crossrefs

Cf. A007953, A055012, A165550.

Sequence in context: A351552 A305448 A177150 * A139592 A294544 A285104

Adjacent sequences: A165548 A165549 A165550 * A165552 A165553 A165554

Keyword

base,easy,nonn

Author

Rémy Sigrist, Sep 21 2009

Status

approved