|
%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_.
|
