%I
%S 23,2357,3137,5711,8389,111317,151157,157163,167173,171923,199211,
%T 233239,251257,257263,263269,271277,313741,331337,353359,373379,
%U 414347,433439,467479,509521,523541,541547,601607,653659,661673,677683,727733
%N Primes which are a concatenation of at least two consecutive primes.
%e 111317 is a term as it is a concatenation of 11, 13 and 17. 199211 is a term as a concatenation of 199 and 211.
%t Module[{pr=Prime[Range[500]],c2,c3,c4},c2=Select[FromDigits/@ (Flatten[ IntegerDigits[ #],1]&/@Partition[pr,2,1]),PrimeQ];c3=Select[ FromDigits/@ (Flatten[IntegerDigits[#],1]&/@Partition[pr,3,1]),PrimeQ];c4= Select[ FromDigits/@(Flatten[IntegerDigits[#],1]&/@Partition[ pr,4,1]),PrimeQ]; Take[Union[Join[c2,c3,c4]],50]] (* _Harvey P. Dale_, Apr 20 2017 *)
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Feb 28 2002
%E Edited by Larry Reeves (larryr(AT)acm.org), Oct 09 2003
