A122683 Squares with strictly increasing digits.

0, 1, 4, 9, 16, 25, 36, 49, 169, 256, 289, 1369, 13456, 13689, 134689

Offset

1,3

Links

Table of n, a(n) for n=1..15.

Mathematica

Select[Range[500]^2, Min[Differences[IntegerDigits[#]]]>0&] (* Harvey P. Dale, Aug 27 2013 *)

Crossrefs

Cf. A060810, A235597.

Sequence in context: A133743 A235484 A028820 * A235597 A309002 A328953

Adjacent sequences: A122680 A122681 A122682 * A122684 A122685 A122686

Keyword

base,fini,full,nonn

Author

Tanya Khovanova, Oct 20 2006

Extensions

0 inserted by Jon E. Schoenfield, Jan 14 2014

Status

approved