OFFSET
1,1
COMMENTS
The terms in A072055 are odd, so the count of terms in the sum must be odd to yield a prime.
EXAMPLE
MATHEMATICA
lst={}; Do[s=2*Prime[m]+1; Do[p=Prime[n]; s+=(2*p+1); If[PrimeQ[s], If[s<=6949, AppendTo[lst, s]]], {n, m+1, 6!}], {m, 1, 6!}]; lst=Take[Union@lst, 200]
Module[{nn=100, terms}, terms=2*Prime[Range[nn]]+1; Take[Union[Select[ Flatten[ Table[Total/@Partition[terms, n, 1], {n, 3, nn, 2}]], PrimeQ]], nn/2]] (* Harvey P. Dale, Jun 11 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 13 2009
EXTENSIONS
Redefined in terms of A072055; cross-references to unrelated sequences deleted - R. J. Mathar, Sep 16 2009
STATUS
approved