A207954 Palindromes with consecutive digits that differ exactly by 1.

1, 2, 3, 4, 5, 6, 7, 8, 9, 101, 121, 212, 232, 323, 343, 434, 454, 545, 565, 656, 676, 767, 787, 878, 898, 989, 10101, 12121, 12321, 21012, 21212, 23232, 23432, 32123, 32323, 34343, 34543, 43234, 43434, 45454, 45654, 54345, 54545, 56565, 56765, 65456, 65656

Offset: 1

Author

Reinhard Zumkeller, Feb 21 2012

Keywords

• nonn
• base

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A136522; intersection of A033075 and A002113.

Programs

Haskell

a207954 n = a207954_list !! (n-1)
a207954_list = filter ((== 1) . a136522) a033075_list

Mathematica

Join[Range[9],Select[Range[70000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {1}&&PalindromeQ[#]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 16 2021 *)