|
%I #14 Jan 16 2014 20:54:11
%S 0,1,4,9,16,25,36,49,169,256,289,1369,13456,13689,134689
%N Squares with strictly increasing digits.
%t Select[Range[500]^2,Min[Differences[IntegerDigits[#]]]>0&] (* _Harvey P. Dale_, Aug 27 2013 *)
%Y Cf. A060810, A235597.
%K base,fini,full,nonn
%O 1,3
%A _Tanya Khovanova_, Oct 20 2006
%E 0 inserted by _Jon E. Schoenfield_, Jan 14 2014
|
