|
%I #8 Oct 20 2019 17:26:23
%S 729,1089,1225,3025,3249,15129,21025,21609,23409,31329,205209,2241009,
%T 14040009,15000129,20223009,23011209,104101209,110313009,1000014129,
%U 1004010012009,1010031030009,10004001000120009,10010003100300009
%N Squares having last digit equal to the sum of the other digits.
%t Select[Range[101*10^6]^2,Length[Union[Total/@TakeDrop[IntegerDigits[#],-1]]] == 1&] (* _Harvey P. Dale_, Aug 26 2019 *)
%Y Cf. A030134.
%K nonn,base
%O 0,1
%A _Patrick De Geest_, Feb 15 2000
|
