|
%I #7 Dec 25 2012 14:12:35
%S 3,32323,33533,37573,38083,79397,1123211,1126211,1163611,1180811,
%T 1268621,1276721,1317131,1338331,1447441,1550551,1565651,1609061,
%U 1764671,1829281,1895981,3236323,3563653,3627263,7065607,7087807
%N Previous palindromic prime concatenated with this palindromic prime is prime.
%t palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; Transpose[ Select[ Partition[Select[Prime[Range[500000]],palQ],2,1],PrimeQ[ FromDigits[ Flatten[IntegerDigits/@#]]]&]][[2]] (* _Harvey P. Dale_, Dec 25 2012 *)
%K nonn,base
%O 0,1
%A _Patrick De Geest_
|
