OFFSET
1,1
COMMENTS
a(n) is divisible by n for every n.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{nn = 57}, Total /@ Partition[#, 2, 1] &@ Fold[Append[#1, SelectFirst[Prime@ Range[2, Ceiling& Log2[nn] nn], Function[p, And[FreeQ[#1, p], Divisible[Last@ #1 + p, #2]]]]] &, {2}, Range@ nn]] (* Michael De Vlieger, Oct 16 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 14 2007
EXTENSIONS
More terms from Robert Israel, Oct 14 2007
STATUS
approved