A050783 Palindromes containing no pair of consecutive equal digits.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 101, 121, 131, 141, 151, 161, 171, 181, 191, 202, 212, 232, 242, 252, 262, 272, 282, 292, 303, 313, 323, 343, 353, 363, 373, 383, 393, 404, 414, 424, 434, 454, 464, 474, 484, 494, 505, 515, 525, 535, 545, 565, 575, 585, 595, 606

Offset

1,3

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[0, 610], Reverse[x=IntegerDigits[#]]==x&&FreeQ[Differences[x], 0]&] (* Jayanta Basu, Jun 01 2013 *)
Select[Range[0, 1000], PalindromeQ[#]&&FreeQ[Differences[IntegerDigits[#]], 0]&] (* Harvey P. Dale, Jun 10 2026 *)

Crossrefs

Cf. A002113, A050784, A030147, A046075.

Sequence in context: A071272 A083851 A071275 * A030147 A207954 A193412

Adjacent sequences: A050780 A050781 A050782 * A050784 A050785 A050786

Keyword

nonn,base,changed

Author

Patrick De Geest, Sep 15 1999

Status

approved