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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Feb 21 2012
STATUS
approved