login
Arrange digits of squares in ascending order.
4

%I #19 Feb 23 2014 03:15:45

%S 0,1,4,9,16,25,36,49,46,18,1,112,144,169,169,225,256,289,234,136,4,

%T 144,448,259,567,256,667,279,478,148,9,169,124,189,1156,1225,1269,

%U 1369,1444,1125,16,1168,1467,1489,1369,225,1126,229,234,124,25,126

%N Arrange digits of squares in ascending order.

%C Leading zeros are discarded (e.g., 30^2 = 900 -> 009 becomes 9).

%H Vincenzo Librandi, <a href="/A028907/b028907.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[FromDigits[Sort[IntegerDigits[n^2]]], {n, 0, 49}] (* _Alonso del Arte_, Feb 21 2014 *)

%Y Cf. A028908.

%K nonn,base

%O 0,3

%A _N. J. A. Sloane_

%E More terms from _Patrick De Geest_, Apr 15 1998