OFFSET
1,1
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
Rémy Sigrist, Colored logarithmic scatterplot of the first 10000 terms (where the color is function of A071194(n))
EXAMPLE
n=25: prime(25)=97, sum=97+101+103+107+109+113+127=757=a(25), prime; shorter (length>1) partial sums are composite: {97,198,301,408,517,630,757}.
MATHEMATICA
Table[sm = Prime[k] + Prime[k + 1]; g = 1; While[ ! PrimeQ[sm], g++; sm = sm + Prime[k + g]]; sm, {k, 1, 51}] (* Lei Zhou, Dec 02 2005 *)
PROG
(PARI) { forprime (p=2, prime(51), s=p; forprime (q=p+1, oo, if (isprime(s+=q), print1 (s", "); break))) } \\ Rémy Sigrist, Nov 17 2020
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Labos Elemer, May 16 2002
EXTENSIONS
Edited and escape clause added by N. J. A. Sloane, Nov 17 2020~
STATUS
approved