login
A050785
Palindromes containing at least one pair of consecutive equal digits.
1
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
OFFSET
1,1
MATHEMATICA
Select[Range[3900], Reverse[x=IntegerDigits[#]]==x&&MemberQ[Differences[x], 0]&] (* Jayanta Basu, Jun 01 2013 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved