OFFSET
0,3
EXAMPLE
The sequence's terms, among terms a(0) through a(8), which divide 9 are a(0)=1, a(1)=1 and a(4)=3. So a(9) is the numerator of 1 +1 +1/3 = 7/3, which is 7.
MATHEMATICA
f[l_List] := Sum[1/l[[k]], {k, Length[l]}]; g[l_List] := Block[{n = Length[l]}, Append[l, Numerator@f[Select[l, Mod[n, # ] == 0 &]]]]; Nest[g, {1}, 75] (* Ray Chandler, Jan 04 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 02 2007
EXTENSIONS
Extended by Ray Chandler, Jan 04 2007
STATUS
approved