%I A107646
%S A107646 3557,355711131719
%N A107646 Primes from concatenating twin primes.
%H A107646 Chris Caldwell <a href="http://primes.utm.edu/lists/small/1ktwins.txt">
               The First 1,008 Twin Primes</a>.
%e A107646 3557 is a prime produced by concatenating twin primes (3,5) and (5,7).
%e A107646 355711131719 is a prime produced by concatenating twin primes (3,5), 
               (5,7), (11,13) and (17,19).
%t A107646 tw = Select[ Prime@ Range@100000, PrimeQ[ # + 2] &]; tw = Flatten /@ 
               IntegerDigits@ Transpose[{tw, tw + 2}]; t = {}; Do[p = FromDigits@ 
               Flatten@ Table[ tw[[i]], {i, n}]; If[ PrimeQ[p], Print[p]], {n, 1090}] 
               (* Robert G. Wilson v *)
%Y A107646 Sequence in context: A151810 A083955 A104207 this_sequence A071144 A152217 
               A004932
%Y A107646 Adjacent sequences: A107643 A107644 A107645 this_sequence A107647 A107648 
               A107649
%K A107646 hard,more,nonn,bref
%O A107646 1,1
%A A107646 Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Jun 09 2005