OFFSET
1,1
COMMENTS
Terms can occur more than once, corresponding to repeated values in A341631.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= 5: S:= [2, 3]: s:= 5: q:= 5: count:= 1:
for n from 3 while count < 100 do
if n = S[1]+1 then S:= S[2..-1]; s:= s-n+1 fi;
if q <= 2*n then S:= [op(S), q]; s:= s+q; q:= nextprime(q) fi;
if s mod n = 0 then count:= count+1; R:= R, s fi;
od:
R;
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Feb 16 2021
STATUS
approved