OFFSET
1,1
COMMENTS
It appears that the sequence is always in simplest terms when generated.
MATHEMATICA
r[n_] := r[n] = If[n <= 2, 1/2, 1/r[n - 2] + r[n - 1]]; Denominator@ Array[r, 13] (* Michael De Vlieger, Jul 15 2017 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
John Harmon, Jul 15 2017
STATUS
approved