OFFSET
1,2
COMMENTS
Suggested by Leroy Quet, Feb 26 2003.
FORMULA
b[k]=n[k]/d[k]; n[1]=1, d[1]=1, m=3; for k>=2: n[k+1] = n[k] *(m*n[k] + 2*d[k]), d[k+1] = d[k] *(m*n[k] + d[k])
EXAMPLE
The sequence begins 1, 5/4, 115/76, 57155/31996, 13457544835/6509938156, ...
MATHEMATICA
NestList[#+1/(3+1/#)&, 1, 10]//Numerator (* Harvey P. Dale, Dec 13 2018 *)
PROG
Reduce: a := 1; for i := 1:8 do write a := a+1/(3+1/a);
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Hugo Pfoertner, Feb 26 2003
STATUS
approved