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,2

Links

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

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 *)

Prog

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

Crossrefs

Cf. A136522; intersection of A033075 and A002113.

Sequence in context: A071275 A050783 A030147 * A193412 A266139 A154562

Adjacent sequences: A207951 A207952 A207953 * A207955 A207956 A207957

Keyword

nonn,base

Author

Reinhard Zumkeller, Feb 21 2012

Status

approved