OFFSET
1,3
MATHEMATICA
Select[Range[500]^2, Min[Differences[IntegerDigits[#]]]>0&] (* Harvey P. Dale, Aug 27 2013 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Tanya Khovanova, Oct 20 2006
EXTENSIONS
0 inserted by Jon E. Schoenfield, Jan 14 2014
STATUS
approved