OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 2449 terms from Robert G. Wilson v)
EXAMPLE
23 = 5 + 7 + 11, 83 = 23 + 29 + 31 = 11 + 13 + 17 + 19 + 23,
119 = 17 + 19 + 23 + 29 + 31 = 7 + 11 + 13 + 17 + 19 + 23 + 29.
MATHEMATICA
pr = Prime[Range[1, 100]]; Table[{n, Intersection[(Plus @@@ Partition[pr, 2 n - 1, 1]), Plus @@@ Partition[pr, 2 n + 1, 1]][[1]]}, {n, 40}] (* or *)
S = Accumulate@ Prime@ Range@ 64000; Table[A = <||>; v = 0; Do[ A[S[[k + 2 n + 1]] - S[[k]]] = 0; t = S[[k + 2 n - 1]] - S[[k]]; If[KeyExistsQ[A, t], v = t; Break[]], {k, 64000 -2*n-1}]; If[v == 0, Break[], v], {n, 1000}] (* Giovanni Resta, Jun 08 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 07 2013
STATUS
approved