A061850 Squares whose consecutive digits vary by at most 1.

0, 1, 4, 9, 100, 121, 676, 10000, 12100, 12321, 1000000, 1210000, 1232100, 1234321, 100000000, 121000000, 123210000, 123432100, 123454321, 10000000000, 12100000000, 12321000000, 12343210000, 12345432100, 12345654321

Offset

0,3

Links

Table of n, a(n) for n=0..24.

Example

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

Mathematica

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

Crossrefs

Sequence in context: A182020 A378498 A087553 * A061459 A061869 A061270

Adjacent sequences: A061847 A061848 A061849 * A061851 A061852 A061853

Keyword

base,nonn

Author

Erich Friedman, Jun 23 2001

Status

approved