A173091 - OEIS

%I #2 Mar 31 2012 12:38:28

%S 2,2,3,3,4,4,6,6,9,9,13,14,19,22,29,34,44,53,68,82,105,128,162,199,

%T 251,309,389,481,604,748,938,1164,1457,1811,2264,2817,3519,4381,5470,

%U 6813,8504,10595,13221,16476,20556,25621,31961,39841,49695,61953,77270,96337

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

%t a=2;b=2;lst={a,b};Do[c=a+Floor[a*b/(a+b)];AppendTo[lst,c];a=b;b=c,{n,5!}];lst

%Y Cf. A173090

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Feb 09 2010