%I #10 Jun 24 2019 22:15:35
%S 1,1,1,2,3,5,9,16,28,51,92,169,312,580,1082,2029,3819,7214,13669,
%T 25971,49468,94439,180666,346277,664852,1278561,2462414,4748941,
%U 9170369,17729380,34314929,66485175,128940946,250297130,486291567,945566936
%N a(n) = A128022(n)/n.
%F a(1)=1, a(n) = ceiling(Sum_{k=1..n-1} A128022(k)/n).
%t f[l_List] := Block[{n = Length[l] + 1},Append[l, Ceiling[Sum[k*l[[k]], {k, n - 1}]/n]]];Nest[f, {1}, 36] (* _Ray Chandler_, Feb 12 2007 *)
%Y Cf. A128022.
%K easy,nonn
%O 1,4
%A _Leroy Quet_, Feb 11 2007
%E Extended by _Ray Chandler_, Feb 12 2007