OFFSET
1,1
COMMENTS
2+3=5(prime);start from 2, sum of two consecutive primes is prime; 5+7+11+13+17=53(prime);start from 5, sum of five consecutive primes is prime; 11+13+17+19+23+29+31+37+41+43+47=311(prime);start from 11, sum of eleven consecutive primes is prime; 19+23+29+31+37+41+43+47+53+59+61+67+71+73+79+83+89+97+101=1103(prime);start from 19, sum of 19 consecutive primes is prime;
MATHEMATICA
lst={}; Do[s=0; Do[p=Prime[n]; If[s==0, p0=p]; s+=p, {n, a, a+Prime[a]-1}]; If[PrimeQ[s], AppendTo[lst, p]], {a, 1, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 05 2008
STATUS
approved