|
%I #2 Mar 31 2012 12:38:28
%S 1,2,2,3,4,5,7,9,12,17,24,33,46,65,91,128,181,255,360,509,719,1017,
%T 1438,2033,2875,4065,5748,8129,11496,16257,22991,32514,45981,65027,
%U 91962,130053,183922,260105,367844,520209,735686,1040417,1471371,2080833
%N a(1)=1, a(2)=2, a(n)=a(n-1)+floor(a(n-2)*a(n-1)/(a(n-2)+a(n-1))).
%t 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
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Feb 09 2010
|
