cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A068655 Primes which are a concatenation of at least two consecutive primes.

This page as a plain text file.
%I A068655 #9 Apr 20 2017 11:36:34
%S A068655 23,2357,3137,5711,8389,111317,151157,157163,167173,171923,199211,
%T A068655 233239,251257,257263,263269,271277,313741,331337,353359,373379,
%U A068655 414347,433439,467479,509521,523541,541547,601607,653659,661673,677683,727733
%N A068655 Primes which are a concatenation of at least two consecutive primes.
%e A068655 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 A068655 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 A068655 base,nonn
%O A068655 1,1
%A A068655 _Amarnath Murthy_, Feb 28 2002
%E A068655 Edited by Larry Reeves (larryr(AT)acm.org), Oct 09 2003