|
%I #9 Oct 10 2019 11:21:12
%S 1,1,4,6,12,20,36,63,104,171,280,462,744,1209,1960,3180,5152,8347,
%T 13500,21850,35360,57225,92598,149845,242448,392300,634764,1027080,
%U 1661856,2688938,4350810,7039759,11390592,18430368,29820992,48251385,78072408
%N a(0)=a(1)=1. a(n) = the multiple of n which is > a(n-1)+a(n-2) and is <= a(n-1)+a(n-2)+n.
%F a(n) = n * (1 +floor[(a(n-1)+a(n-2))/n]).
%t f[l_List] := Block[{n = Length[l]},Append[l, n*(1 + Floor[(l[[ -1]] + l[[ -2]])/n])]];Nest[f, {1, 1}, 36] (* _Ray Chandler_, Feb 12 2007 *)
%Y Cf. A128035.
%K easy,nonn
%O 0,3
%A _Leroy Quet_, Feb 11 2007
%E Extended by _Ray Chandler_, Feb 12 2007
|
