|
%I #8 Sep 13 2015 23:31:56
%S 3557,11131719,29314143,59617173,101103107109,137139149151,
%T 179181191193,197199227229,239241269271,281283311313,347349419421,
%U 431433461463,521523569571,599601617619,641643659661,809811821823,827829857859,88188310191021,1031103310491051
%N Concatenation of consecutive twin primes.
%H Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/1ktwins.txt">The First 1,008 Twin Primes</a>.
%e 3557 is obtained by concatenating the consecutive pair of twin primes (3,5) and (5,7).
%e 11131719 is obtained by concatenating the consecutive pair of twin primes (11,13) and (17,19).
%t With[{ll=Select[Partition[Prime[Range[200]],2,1],Last[#]-First[#] == 2&]}, Table[FromDigits[Flatten[IntegerDigits/@Take[ll,{2n-1,2n}]]],{n,20}]] (* _Harvey P. Dale_, Oct 25 2011 *)
%K nonn,base
%O 0,1
%A _Parthasarathy Nambi_, Apr 01 2005
%E More terms from _Harvey P. Dale_, Oct 25 2011
|
