Pensieve header: Continued fractions have lengthy formulas.

Fold[(#2+(1/(#1)))&,(Subscript[a, 0]),Table[(Subscript[a, i]),{i,10}]]

Together@Fold[(#2+(1/(#1)))&,(Subscript[a, 0]),Table[(Subscript[a, i]),{i,10}]]