OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
MATHEMATICA
Fold[Append[#1, #1[[-1]] + Complement[Range[Max@#1 + 3], #1][[#2]]] &, {1, 7}, Range[3, 50]] (* Ivan Neretin, Apr 05 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved