cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A207954 Palindromes with consecutive digits that differ exactly by 1.

This page as a plain text file.
%I A207954 #12 Feb 16 2021 14:18:32
%S A207954 1,2,3,4,5,6,7,8,9,101,121,212,232,323,343,434,454,545,565,656,676,
%T A207954 767,787,878,898,989,10101,12121,12321,21012,21212,23232,23432,32123,
%U A207954 32323,34343,34543,43234,43434,45454,45654,54345,54545,56565,56765,65456,65656
%N A207954 Palindromes with consecutive digits that differ exactly by 1.
%H A207954 Reinhard Zumkeller, <a href="/A207954/b207954.txt">Table of n, a(n) for n = 1..10000</a>
%t A207954 Join[Range[9],Select[Range[70000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {1}&&PalindromeQ[#]&]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 16 2021 *)
%o A207954 (Haskell)
%o A207954 a207954 n = a207954_list !! (n-1)
%o A207954 a207954_list = filter ((== 1) . a136522) a033075_list
%Y A207954 Cf. A136522; intersection of A033075 and A002113.
%K A207954 nonn,base
%O A207954 1,2
%A A207954 _Reinhard Zumkeller_, Feb 21 2012