A164882 Numbers n such that sum of the cubes of the digits of n^3 is a perfect cube.
0, 1, 2, 10, 20, 78, 100, 118, 200, 237, 303, 501, 780, 1000, 1005, 1039, 1079, 1145, 1180, 1562, 2000, 2224, 2370, 3003, 3030, 3304, 4105, 4339, 5001, 5010, 5235, 5478, 5705, 5829, 6096, 6459, 6475, 6493, 6795, 7154, 7221, 7444, 7800, 8494, 9168, 9462
Offset: 1
Examples
a(6) = 78 since 78^3 = 474552 and 4^3 + 7^3 + 4^3 + 5^3 + 5^3 + 2^3 = 729 = 9^3
Links
- Zak Seidov, Table of n, a(n) for n = 1..1741 (all terms up to 10^6).
Programs
-
Mathematica
Select[Range[0,10000],IntegerQ[Power[Total[IntegerDigits[#^3]^3], (3)^-1]]&] (* Harvey P. Dale, Mar 17 2012 *)
Extensions
Typo in name fixed by Zak Seidov, May 21 2013