|
%I #11 Mar 24 2014 23:59:37
%S 3,15,24,27,30,36,51,54,66,72,108,129,135,141,150,156,162,183,225,234,
%T 240,255,270,282,300,309,336,339,342,351,354,357,360,363,366,393,405,
%U 408,435,456,462,483,492,504,510,528,540,555,582,609,615,624,627,633
%N Digital sum of n^3 is 3*(digital sum of n).
%C 15 (digital sum = 1+5 = 6) is in the list because 15^3=3375 (digital sum = 3+3+7+5 = 18) and 18 = 3*6.
%t Select[Range[700],Total[IntegerDigits[#^3]]==3Total[IntegerDigits[#]]&] (* _Harvey P. Dale_, Dec 08 2010 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jun 10 2009
|
