A050785 Palindromes containing at least one pair of consecutive equal digits.

11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 222, 333, 444, 555, 666, 777, 888, 999, 1001, 1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 2002, 2112, 2222, 2332, 2442, 2552, 2662, 2772, 2882, 2992, 3003, 3113, 3223, 3333, 3443, 3553, 3663, 3773, 3883, 3993, 4004, 4114, 4224, 4334, 4444

Offset: 1

Author

Patrick De Geest, Sep 15 1999

Keywords

• nonn
• easy
• base

Links

• J.W.L. (Jan) Eerland, Table of n, a(n) for n = 1..43569

Crossrefs

Cf. A002113, A050786, A050783.

Programs

Mathematica

Select[Range[3900],Reverse[x=IntegerDigits[#]]==x&&MemberQ[Differences[x],0]&] (* Jayanta Basu, Jun 01 2013 *)

Extensions

a(48)-a(53) from J.W.L. (Jan) Eerland, Jan 20 2025