A161467 - OEIS

%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