|
%I #13 Aug 19 2021 06:18:14
%S 11,11311,11411,13331,15551,16661,19991,33533,72227,75557,76667,77377,
%T 77477,77977,78887,79997,1003001,1008001,1022201,1055501,1114111,
%U 1117111,1120211,1123211,1126211,1129211,1134311,1145411,1150511
%N Palindromic primes containing at least one pair of consecutive equal digits.
%t Select[Prime[Range[89500]],Reverse[x=IntegerDigits[#]]==x&&MemberQ[Differences[x],0]&] (* _Jayanta Basu_, Jun 01 2013 *)
%Y Cf. A002385, A050785, A050784, A050758.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1999
|
