%I #4 Nov 21 2013 12:50:03

%S 19,853,2287,2467,4243,4513,4621,5431,5701,7243,7477,7591,7927,8221,

%T 8317,9283,9439,9817,10039,12781,13933,14461,14923,15727,16693,17443,

%U 18199,18217,19207,20749,21139,22147,23761,25471,26701,26953,27481,28111,28447,28579

%N Primes p that p//13 and p//31 are consecutive primes.

%C See A176600

%H Harvey P. Dale, <a href="/A176601/b176601.txt">Table of n, a(n) for n = 1..2000</a>

%e 19//13 = 1913 = prime(293), 19//31 = 1931 = prime(294), 19 = prime(8) is 1st term

%e 853//13 = 85313 = prime(8306), 853//31 = 85331 = prime(8307), 853 = prime(147) is 2nd term

%t okQ[n_]:=Module[{idn=IntegerDigits[n],p13,p31},p13=FromDigits[ Join[ idn,{1,3}]];p31=FromDigits[Join[idn,{3,1}]];PrimeQ[p13]&&NextPrime[p13] == p31]; Select[Prime[Range[16000]],okQ] (* _Harvey P. Dale_, Jan 21 2012 *)

%Y A168327, A168417, A173836, A174213, A174260, A174355, A174441, A176600

%K base,nonn

%O 1,1

%A Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Apr 21 2010

%E More terms from Harvey P. Dale, Jan 21 2012