%I A128023
%S A128023 1,1,1,2,3,5,9,16,28,51,92,169,312,580,1082,2029,3819,7214,13669,25971,
%T A128023 49468,94439,180666,346277,664852,1278561,2462414,4748941,9170369,
%U A128023 17729380,34314929,66485175,128940946,250297130,486291567,945566936
%N A128023 a(n) = A128022(n)/n.
%H A128023 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%F A128023 a(1)=1, a(n) = ceiling(sum{k=1 to n-1} A128022(k) /n).
%t A128023 f[l_List] := Block[{n = Length[l] + 1},Append[l, Ceiling[Sum[k*l[[k]], 
               {k, n - 1}]/n]]];Nest[f, {1}, 36] (*Chandler*)
%Y A128023 Cf. A128022.
%Y A128023 Sequence in context: A002572 A114834 A143961 this_sequence A056303 A000048 
               A074099
%Y A128023 Adjacent sequences: A128020 A128021 A128022 this_sequence A128024 A128025 
               A128026
%K A128023 easy,nonn
%O A128023 1,4
%A A128023 Leroy Quet Feb 11 2007
%E A128023 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 12 2007