A197039 - OEIS

%I #8 Mar 30 2012 18:35:59

%S 1,4,9,10,12,21,22,40,48,84,88,90,100,102,120,123,126,132,162,168,186,

%T 201,202,210,213,216,220,231,261,312,321,333,400,408,480,612,618,621,

%U 681,804,808,816,840,861,880,900,1000,1002,1020,1023,1026,1032,1062

%N Numbers such that sum of the cube of decimal digits is a perfect square.

%H Harvey P. Dale, <a href="/A197039/b197039.txt">Table of n, a(n) for n = 1..1000</a>

%e 261 is in the sequence because 2^3+6^3+1^3 = 15^2.

%t Select[Range[1100],IntegerQ[Sqrt[Apply[Plus,IntegerDigits[#]^3]]]&]

%Y Cf. A028839, A175396.

%K nonn,base

%O 1,2

%A _Michel Lagneau_, Oct 08 2011