|
%I #10 Nov 21 2013 12:48:11
%S 11,23,29,31,44,45,51,58,61,66,73,80,82,84,111,112,124,127,130,136,
%T 138,167,185,186,188,192,194,212,213,215,216,217,218,275,276,292,293,
%U 294,295,296,297,299,300,301,302,319,321,326,344,345,346,348,352,353,355
%N Concatenation of last two digits of p(n) and first two digits of p(n+1) is prime; values of such n in the sequence.
%e a(7)=51 because prime{51)=233, prime{52)=239 and 3323 is prime
%t cpdQ[{a_,b_}]:=PrimeQ[FromDigits[Join[Take[IntegerDigits[a],-2], Take[ IntegerDigits[b],2]]]]; PrimePi/@Transpose[Select[ Partition[ Prime[ Range[5,500]],2,1],cpdQ]][[1]] (* _Harvey P. Dale_, Mar 30 2011 *)
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Jul 09 2003
%E Edited by _Charles R Greathouse IV_, Apr 27 2010
|
