|
%I #5 Nov 21 2013 12:48:57
%S 0,1,100,3969,7569,8649,10000,12996,13689,15876,19881,33489,34596,
%T 36864,42849,45369,46656,47961,49284,51984,54756,56169,59049,66564,
%U 71289,74529,76176,77841,79524,82944,84681,86436,88209,91809,93636,95481,97344,99225
%N Squares for which the sum of the digits are cubes.
%H Harvey P. Dale, <a href="/A117685/b117685.txt">Table of n, a(n) for n = 0..1000</a>
%e 8649 is in the sequence because it is a square and the sum of the digits 8+6+4+9=27 is a cube.
%t Select[Range[0,400]^2,IntegerQ[Power[Total[IntegerDigits[#]], (3)^-1]]&] (* _Harvey P. Dale_, Jan 28 2012 *)
%Y Cf. A000290, A000578.
%K nonn,base
%O 0,3
%A Luc Stevens (lms022(AT)yahoo.com), Apr 12 2006
%E Corrected (a(18) inserted) and extended by Harvey P. Dale, Jan 28 2012
|
