%I #6 Sep 02 2017 20:05:03
%S 1,2,3,4,5,6,7,8,9,11,17,22,33,44,55,66,71,77,88,99,111,115,151,157,
%T 175,222,333,444,511,517,555,571,666,715,751,777,888,999,1111,1135,
%U 1153,1177,1315,1339,1351,1393,1513,1531,1557,1575,1717,1755,1771,1933,2000
%N RootMeanSquare(digits of n) is an integer.
%H Harvey P. Dale, <a href="/A147591/b147591.txt">Table of n, a(n) for n = 1..1000</a>
%e n=1236, RMS(digits of 1351)=sqrt((1^2+3^2+5^2+1^2)/4)=sqrt(36/4)=sqrt(9)=3.
%t Select[Range[2000],IntegerQ[RootMeanSquare[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Sep 02 2017 *)
%Y Cf. A140480
%K base,easy,nonn
%O 1,2
%A _Ctibor O. Zizka_, Nov 08 2008
|