|
%I #9 Nov 21 2013 12:49:41
%S 0,1,2,10,20,78,100,118,200,237,303,501,780,1000,1005,1039,1079,1145,
%T 1180,1562,2000,2224,2370,3003,3030,3304,4105,4339,5001,5010,5235,
%U 5478,5705,5829,6096,6459,6475,6493,6795,7154,7221,7444,7800,8494,9168,9462
%N Numbers n such that sum of the cubes of the digits of n^3 is a perfect cube.
%H Zak Seidov, <a href="/A164882/b164882.txt">Table of n, a(n) for n = 1..1741</a> (all terms up to 10^6).
%e a(6) = 78 since 78^3 = 474552 and 4^3 + 7^3 + 4^3 + 5^3 + 5^3 + 2^3 = 729 = 9^3
%t Select[Range[0,10000],IntegerQ[Power[Total[IntegerDigits[#^3]^3], (3)^-1]]&] (* _Harvey P. Dale_, Mar 17 2012 *)
%K nonn,base
%O 1,3
%A _Gaurav Kumar_, Aug 29 2009
%E Typo in name fixed by _Zak Seidov_, May 21 2013
|
