OFFSET
1,1
COMMENTS
Contains A067372 as a subsequence.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime Sums
FORMULA
A054845(a(n)) > 1.
EXAMPLE
5 is in the sequence because it can be written as either 5 or 2 + 3.
36 is the sequence because it can be written as either 5 + 7 + 11 + 13 or 17 + 19.
MAPLE
N:= 1000: # for terms <= N
P:= select(isprime, [2, seq(i, i=3..N, 2)]):
S:= [0, op(ListTools:-PartialSums(P))]:
V:= Vector(N):
for i from 1 to nops(S) do
for j from i-1 to 1 by -1 do
v:= S[i]-S[j];
if v > N then break fi;
V[v]:= V[v]+1;
od od:
select(t -> V[t]>1, [$1..N]); # Robert Israel, Aug 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 16 2019
STATUS
approved