OFFSET
1,6
EXAMPLE
1, 1, 3, 5, 3, 9/5, 29/15, 71/27, 751/261, 5095/2059, 117707/53321, ...
MAPLE
a := 1; b := 1; f := proc(n) option remember; global a, b; if n=1 then RETURN(a); fi; if n=2 then RETURN(b); fi; RETURN((f(n-1)+f(n-2)+1)/f(n-2)); end;
MATHEMATICA
Denominator[RecurrenceTable[{a[1]==a[2]==1, a[n]==(a[n-1]+a[n-2]+1)/ a[n-2]}, a, {n, 20}]] (* Harvey P. Dale, Jul 20 2014 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Nov 21 2002
STATUS
approved