A229879 - OEIS

%I #11 Oct 02 2013 17:57:36

%S 5,131,383,797,10301,12821,16061,19391,30803,32423,35753,36563,38183,

%T 76667,77477,79997,94649,96269,1003001,1028201,1085801,1093901,

%U 1126211,1134311,1150511,1175711,1183811,1208021,1257521,1273721,1281821,1363631,1371731,1412141

%N Palindromic prime numbers == 5 (mod 9).

%H Shyam Sunder Gupta, <a href="/A229879/b229879.txt">Table of n, a(n) for n = 1..993</a>

%t t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 5, AppendTo[t, z]], {n, 1, 99999}]; t

%Y Cf. A002385, A229875.

%K nonn,base,less

%O 1,1

%A _Shyam Sunder Gupta_, Oct 02 2013