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.
%I A244186 #18 Mar 10 2024 00:23:14
%S A244186 711131719,5359616771,6771737983,149151157163167,401409419421431,
%T A244186 479487491499503,757761769773787,14091423142714291433,
%U A244186 18111823183118471861,21132129213121372141,26892693269927072711,27192729273127412749,36133617362336313637,37613767376937793793
%N A244186 Primes which are the concatenation of five consecutive primes p, q, r, s, t while the sum (p + q + r + s + t) is another prime.
%C A244186 Subsequence of A086041.
%C A244186 Numbers: Concatenation of 5 consecutive primes at A132905.
%H A244186 K. D. Bajpai, <a href="/A244186/b244186.txt">Table of n, a(n) for n = 1..1703</a>
%e A244186 711131719 is in the sequence because the concatenation of [7, 11, 13, 17, 19] = 711131719 which is prime. The sum [7 + 11 + 13 + 17 + 19] = 67 is another prime.
%e A244186 5359616771 is in the sequence because the concatenation of [53, 59, 61, 67, 71] = 5359616771 which is prime. The sum [53 + 59 + 61 + 67 + 71] = 311 is another prime.
%t A244186 FromDigits[Flatten[IntegerDigits/@#]]&/@Select[Partition[Prime[Range[ 1000]],5,1],AllTrue[{Total[#],FromDigits[Flatten[ IntegerDigits/@ #]]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 24 2014 *)
%Y A244186 Cf. A000040, A086041, A034961, A034962, A132903, A244163.
%K A244186 nonn,base
%O A244186 1,1
%A A244186 _K. D. Bajpai_, Jun 21 2014