OFFSET
1,2
MATHEMATICA
a=1; b=2; lst={a, b}; Do[c=b+Floor[a*b/(a+b)]; AppendTo[lst, c]; a=b; b=c, {n, 5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 09 2010
STATUS
approved