login
a(n) = A128022(n)/n.
1

%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