The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A288340 a(n) is the smallest prime that is the sum of both 2n-1 and 2n+1 consecutive primes. 1
 23, 83, 311, 401, 1367, 3617, 863, 5683, 1523, 153113, 90011, 10949, 7901, 155671, 11131, 117977, 14699, 252079, 58369, 132749, 203293, 641867, 116257, 607093, 78791, 46471, 927049, 340601, 1485541, 521897, 99149, 771889, 2153993, 227869, 2349251, 4762213, 56099, 3232093, 944003, 1006781 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Inspired by A213174. Records: 23, 83, 311, 401, 1367, 3617, 5683, 153113, 155671, 252079, 641867, 927049, 1485541, 2153993, 2349251, 4762213, ..., . - Robert G. Wilson v, Jun 11 2017 LINKS Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 812 terms from Robert G. Wilson v) MATHEMATICA pr = Prime@ Range@ 25000; f[n_] := Select[ Intersection[Plus @@@ Partition[pr, 2n -1, 1], Plus @@@ Partition[pr, 2n +1, 1]], PrimeQ][[1]]; Array[f, 40] (* or *) f[n_] := Block[{a = Prime@ Range[2, 2n], p = Prime[2n +1], b = Prime@ Range[2, 2n +2], q = Prime[2n +3]}, While[aa = Plus @@ a; bb = Plus @@ b; aa != bb || ! PrimeQ@ aa, If[aa < bb, a = Join[Rest@ a, {p}]; p = NextPrime@ p, b = Join[Rest@ b, {q}]; q = NextPrime@ q]]; Plus @@ a]; Array[f, 40] CROSSREFS Cf. A213174. Sequence in context: A167573 A318356 A142790 * A316378 A323147 A262119 Adjacent sequences:  A288337 A288338 A288339 * A288341 A288342 A288343 KEYWORD nonn AUTHOR Robert G. Wilson v, Jun 08 2017 STATUS approved

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

Last modified August 15 23:32 EDT 2022. Contains 356150 sequences. (Running on oeis4.)