%I #17 Sep 08 2022 08:45:10
%S 191,797,13931,17971,19991,71917,77977,79997,94949,95959,1129211,
%T 1409041,1469641,1489841,1579751,1589851,1609061,1829281,1879781,
%U 1909091,1969691,3089803,3319133,3329233,3439343,3449443,3479743,3569653,3589853,3689863,3709073,3769673
%N Palindromic primes with middle digit 9.
%H Harvey P. Dale, <a href="/A082445/b082445.txt">Table of n, a(n) for n = 1..611</a> (* All such primes with 9 or fewer digits *)
%t ppmd9Q[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]&&idn[[(Length[ idn]+1)/2]]==9]; Flatten[Table[Select[Prime[Range[PrimePi[10^(2n)+1], PrimePi[ 10^(2n+1)-1]]],ppmd9Q],{n,3}]] (* _Harvey P. Dale_, Feb 11 2015 *)
%o (Magma) [ p: p in PrimesUpTo(200000000) | IsOdd(d) and D[(d+1) div 2] eq 9 and D eq Reverse(D) where d is #D where D is Intseq(p) ]; // _Vincenzo Librandi_, Apr 12 2011
%Y Cf. A002385.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Apr 25 2003
%E a(4), a(14), a(18), a(24), a(27) from _Vincenzo Librandi_, Apr 12 2011