A173090 a(1)=1, a(2)=2, a(n)=a(n-1)+floor(a(n-2)*a(n-1)/(a(n-2)+a(n-1))).

1, 2, 2, 3, 4, 5, 7, 9, 12, 17, 24, 33, 46, 65, 91, 128, 181, 255, 360, 509, 719, 1017, 1438, 2033, 2875, 4065, 5748, 8129, 11496, 16257, 22991, 32514, 45981, 65027, 91962, 130053, 183922, 260105, 367844, 520209, 735686, 1040417, 1471371, 2080833

Offset

1,2

Links

Table of n, a(n) for n=1..44.

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

Sequence in context: A290821 A072493 A064324 * A032277 A205579 A089047

Adjacent sequences: A173087 A173088 A173089 * A173091 A173092 A173093

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Feb 09 2010

Status

approved