OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
EXAMPLE
a(5) = 5 because a(5) = floor(4*a(3)*a(4)/(a(3)+a(4))) = floor(4*2*4/(2+4)) = floor(32/6) = 5.
MATHEMATICA
nxt[{a_, b_}]:={b, Floor[2*HarmonicMean[{a, b}]]}; Join[{1}, Transpose[ NestList[ nxt, {1, 2}, 40]][[1]]] (* Harvey P. Dale, Mar 04 2015 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert A. Stump (rstump_2004(AT)yahoo.com), Apr 25 2004
EXTENSIONS
Definition corrected by Jason Yuen, Aug 27 2024
STATUS
approved