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,1

Links

Table of n, a(n) for n=1..29.

Mathematica

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

Crossrefs

Cf. A002385, A050785, A050784, A050758.

Sequence in context: A113615 A034873 A075854 * A228566 A228533 A088103

Adjacent sequences: A050783 A050784 A050785 * A050787 A050788 A050789

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Status

approved