A122683 Squares with strictly increasing digits.
0, 1, 4, 9, 16, 25, 36, 49, 169, 256, 289, 1369, 13456, 13689, 134689
Offset: 1
Programs
-
Mathematica
Select[Range[500]^2,Min[Differences[IntegerDigits[#]]]>0&] (* Harvey P. Dale, Aug 27 2013 *)
Extensions
0 inserted by Jon E. Schoenfield, Jan 14 2014