login
Squares in which each digit exceeds the previous digit by more than one.
1

%I #8 Jan 17 2014 17:24:05

%S 0,1,4,9,16,25,36,49,169,1369

%N Squares in which each digit exceeds the previous digit by more than one.

%e 256 is not a term because 6-5=1.

%t Select[Range[0, 40]^2, Min[Differences[IntegerDigits[#]]]>1&] (* _Vincenzo Librandi_, Jan 17 2014 *)

%Y A subsequence of A122683.

%K nonn,base,fini,full

%O 1,3

%A _N. J. A. Sloane_, Jan 16 2014, following a suggestion from _Vincenzo Librandi_.