OFFSET
1,2
EXAMPLE
From among the first 13 terms, five terms (a(1)=1, a(2)=2, a(3)=4, a(4)=7 and a(13)=28) divide a(13)=28. So a(14)= a(13)+ 5 = 33.
MATHEMATICA
f[l_List] := Append[l, l[[ -1]] + Count[ Mod[l[[ -1]], l], 0]]; Nest[f, {1}, 65] (* Ray Chandler, Oct 16 2006 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Oct 16 2006
EXTENSIONS
Extended by Ray Chandler, Oct 16 2006
STATUS
approved