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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 08 2017
STATUS
approved