The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #26 Oct 02 2013 17:58:18
%S 373,787,12721,14341,18481,30703,31513,32323,34843,37273,38083,73237,
%T 74047,77377,93739,97879,98689,1035301,1043401,1092901,1117111,
%U 1190911,1215121,1280821,1338331,1362631,1411141,1444441,1452541,1469641,1542451,1550551,1583851
%N Palindromic prime numbers == 4 (mod 9).
%H Shyam Sunder Gupta, <a href="/A229499/b229499.txt">Table of n, a(n) for n = 1..987</a>
%t t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 4, 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