|
%I #16 Jul 22 2014 22:08:57
%S 67,7879,9091,186187,276277,426427,438439,450451,600601,606607,798799,
%T 816817,858859,936937,960961,11401141,13981399,15361537,17461747,
%U 17881789,18961897,21002101,21902191,22082209,27362737,28802881
%N First prime of a pair, formed by concatenating n, n+1, the second prime (not shown) formed by concatenating n+2, n+3.
%H Harvey P. Dale, <a href="/A156121/b156121.txt">Table of n, a(n) for n = 1..1000</a>
%e For n=6 the primes generated are 67 and 89 so 67 is in the sequence.
%t fd[lst_]:=FromDigits[Flatten[IntegerDigits/@lst]]; ppcQ[n_]:=And@@ PrimeQ[ {fd[{n,n+1}],fd[{n+2,n+3}]}]; fd[{#,#+1}]&/@Select[Range[10000],ppcQ] (* _Harvey P. Dale_, Aug 07 2013 *)
%K nonn,base
%O 1,1
%A _Ki Punches_, Feb 16 2009
%E Edited and extended by _Ray Chandler_, Feb 20 2009
|
