OFFSET
1,2
COMMENTS
EXAMPLE
MAPLE
P:= 1: S:= 0: p:= 0: a[0]:= 0:
for i from 1 to 100 do
p:= nextprime(p);
P:= P*p;
S:= S+p;
a[i]:= nops(select(isprime, {$(P-S+1)..(P+S-1)}));
od:
seq(a[i], i=0..100); # Robert Israel, Jun 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 03 2015
EXTENSIONS
a(13) corrected and a(19) onwards from Robert Israel, Jun 05 2015
STATUS
approved
