OFFSET
1,1
EXAMPLE
a(1) = 10 because 2 + 3 + 5 + ... + 29 = 3*prime(14) and p(10) = 29 is the least such prime summand.
MATHEMATICA
z = 2800; f[n_] := Sum[Prime[k], {k, 1, n}]; p[n_] := If[PrimeQ[f[n]/3], 1, 0]; t = Table[p[n], {n, 1, z}]; Flatten[Position[t, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Oct 01 2013
STATUS
approved