The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A244163 Primes which are the concatenation of three consecutive primes p, q, r while the sum (p + q + r) yields another prime. 2

%I

%S 5711,111317,171923,313741,414347,229233239,389397401,401409419,

%T 409419421,449457461,701709719,773787797,787797809,797809811,

%U 140914231427,157915831597,163716571663,202920392053,212921312137,252125312539,259125932609,263326472657,268926932699

%N Primes which are the concatenation of three consecutive primes p, q, r while the sum (p + q + r) yields another prime.

%C Subsequence of A030469.

%C The first five terms of this sequence resemble exactly those of A030469.

%H K. D. Bajpai, <a href="/A244163/b244163.txt">Table of n, a(n) for n = 1..2250</a>

%e 5711 is in the sequence because the concatenation of [5, 7, 11] = 5711 which is prime. The sum [5 + 7 + 11] = 23 is another prime.

%e 111317 is in the sequence because the concatenation of [11, 13, 17] = 111317 which is prime. The sum [11 + 13 + 17] = 41 is another prime.

%p A244163:= proc() local a,b,c,k,m; a:=ithprime(n); b:=ithprime(n+1); c:=ithprime(n+2); m:=a+b+c; k:=parse(cat(a,b,c)); if isprime(k) and isprime(m) then RETURN (k); fi; end: seq(A244163 (), n=1..500);

%t prQ[{a_,b_,c_}]:=Module[{p=FromDigits[Flatten[IntegerDigits/@ {a,b,c}]]}, If[ AllTrue[ {p,a+b+c},PrimeQ],p,Nothing]]; prQ/@Partition[ Prime[ Range[ 500]],3,1] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 05 2021 *)

%Y Cf. A000040, A030469, A034961, A034962, A132903.

%K nonn,base

%O 1,1

%A _K. D. Bajpai_, Jun 21 2014

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 17 16:03 EDT 2021. Contains 343980 sequences. (Running on oeis4.)