A061850 - OEIS

%I #4 Mar 31 2012 10:26:35

%S 0,1,4,9,100,121,676,10000,12100,12321,1000000,1210000,1232100,

%T 1234321,100000000,121000000,123210000,123432100,123454321,

%U 10000000000,12100000000,12321000000,12343210000,12345432100,12345654321

%N Squares whose consecutive digits vary by at most 1.

%e 676 = 26^2 and 6 and 7 differ by at most 1

%t For[i=1, i>0, i++, a=IntegerDigits[i^2]; b=Max[Abs[a-RotateRight[a]]]; If[b<2, Print[i^2]]]

%K base,nonn

%O 0,3

%A _Erich Friedman_, Jun 23 2001