[go: up one dir, main page]

login
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
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
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
KEYWORD
nonn
AUTHOR
STATUS
approved