A050786 Palindromic primes containing at least one pair of consecutive equal digits.
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
Programs
-
Mathematica
Select[Prime[Range[89500]],Reverse[x=IntegerDigits[#]]==x&&MemberQ[Differences[x],0]&] (* Jayanta Basu, Jun 01 2013 *)