OFFSET
1,1
LINKS
EXAMPLE
MATHEMATICA
With[{s = #}, Table[k = n + 1; While[! Divisible[s[[k]], s[[n]]], k++]; s[[k]], {n, 50}]] &@ Map[Total, Partition[Prime@ Range[10^4 + 1], 2, 1]] (* Michael De Vlieger, Mar 13 2017, after Harvey P. Dale at A001043 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 12 2017
STATUS
approved