login
A122683
Squares with strictly increasing digits.
3
0, 1, 4, 9, 16, 25, 36, 49, 169, 256, 289, 1369, 13456, 13689, 134689
OFFSET
1,3
MATHEMATICA
Select[Range[500]^2, Min[Differences[IntegerDigits[#]]]>0&] (* Harvey P. Dale, Aug 27 2013 *)
CROSSREFS
Sequence in context: A133743 A235484 A028820 * A235597 A309002 A328953
KEYWORD
base,fini,full,nonn
AUTHOR
Tanya Khovanova, Oct 20 2006
EXTENSIONS
0 inserted by Jon E. Schoenfield, Jan 14 2014
STATUS
approved