%I #5 Nov 21 2013 12:48:57
%S 0,1,27,216,1000,27000,216000,287496,884736,970299,1000000,1860867,
%T 2146689,3581577,3796416,4019679,5000211,6128487,6434856,6751269,
%U 7414875,7762392,10077696,14348907,15438249,16581375,21717639,22425768
%N Cubes for which the sum of the digits is a square.
%e 216 is in the sequence because it is a cube and the sum of its digits 2+1+6=9 is a square.
%t Select[Range[0,300]^3,IntegerQ[Sqrt[Total[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Mar 29 2012 *)
%Y Cf. A000290, A000578.
%K nonn,base
%O 0,3
%A Luc Stevens (lms022(AT)yahoo.com), Apr 12 2006
|