login
A050786
Palindromic primes containing at least one pair of consecutive equal digits.
1
11, 11311, 11411, 13331, 15551, 16661, 19991, 33533, 72227, 75557, 76667, 77377, 77477, 77977, 78887, 79997, 1003001, 1008001, 1022201, 1055501, 1114111, 1117111, 1120211, 1123211, 1126211, 1129211, 1134311, 1145411, 1150511
OFFSET
1,1
MATHEMATICA
Select[Prime[Range[89500]], Reverse[x=IntegerDigits[#]]==x&&MemberQ[Differences[x], 0]&] (* Jayanta Basu, Jun 01 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved