login
Numbers whose squares have their digits in strictly increasing order.
1

%I #15 Oct 06 2024 11:49:41

%S 0,1,2,3,4,5,6,7,13,16,17,37,116,117,367

%N Numbers whose squares have their digits in strictly increasing order.

%F a(n) = sqrt(A122683(n)).

%e 117^2 = 13689 and 1 < 3 < 6 < 8 < 9.

%t Select[Range[0,400],Min[Differences[IntegerDigits[#^2]]]>0&] (* _Harvey P. Dale_, Oct 06 2024 *)

%Y Cf. A122683.

%K base,easy,full,nonn,fini

%O 1,3

%A _Erich Friedman_, Apr 29 2001