%I #13 Oct 03 2013 07:43:08
%S 7,151,313,727,10501,11311,13831,15451,17971,30103,35053,37573,70207,
%T 71917,72727,78487,90709,93139,94849,96469,1062601,1160611,1177711,
%U 1193911,1201021,1218121,1242421,1250521,1422241,1447441,1463641,1496941,1520251,1594951
%N Palindromic prime numbers == 7 (mod 9).
%H Shyam Sunder Gupta, <a href="/A229880/b229880.txt">Table of n, a(n) for n = 1..1007</a>
%t t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 7, 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
|