login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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. 1
711131719, 5359616771, 6771737983, 149151157163167, 401409419421431, 479487491499503, 757761769773787, 14091423142714291433, 18111823183118471861, 21132129213121372141, 26892693269927072711, 27192729273127412749, 36133617362336313637, 37613767376937793793 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Subsequence of A086041.

Numbers: Concatenation of 5 consecutive primes at A132905.

LINKS

K. D. Bajpai, Table of n, a(n) for n = 1..1703

EXAMPLE

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.

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.

MAPLE

with(numtheory);

T:=proc(t) local w, x, y; x:=t; y:=0; while x>0 do x:=trunc(x/10); y:=y+1; od; end:

P:=proc(q) local a, b, c, d, k, i, n;

for n from 1 to q do a:=ithprime(n+4); b:=ithprime(n+3); c:=ithprime(n+2); d:=ithprime(n+1);

if isprime(a+b+c+d+ithprime(n)) then k:=a+b*10^T(a); i:=c*10^T(k); k:=k+i; i:=d*10^T(k);

k:=k+i; i:=ithprime(n)*10^T(k); k:=k+i; if isprime(k) then print(k); fi; fi;

od; end: P(10^4); # Paolo P. Lava, Jul 11 2014

MATHEMATICA

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 *)

CROSSREFS

Cf. A000040, A086041, A034961, A034962, A132903, A244163.

Sequence in context: A203933 A219279 A086041 * A035518 A104952 A015370

Adjacent sequences:  A244183 A244184 A244185 * A244187 A244188 A244189

KEYWORD

nonn,base

AUTHOR

K. D. Bajpai, Jun 21 2014

STATUS

approved

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 18 16:41 EDT 2019. Contains 322209 sequences. (Running on oeis4.)