A128023 a(n) = A128022(n)/n.

1, 1, 1, 2, 3, 5, 9, 16, 28, 51, 92, 169, 312, 580, 1082, 2029, 3819, 7214, 13669, 25971, 49468, 94439, 180666, 346277, 664852, 1278561, 2462414, 4748941, 9170369, 17729380, 34314929, 66485175, 128940946, 250297130, 486291567, 945566936

Offset: 1

Author

Leroy Quet, Feb 11 2007

Keywords

• easy
• nonn

Crossrefs

Cf. A128022.

Programs

Mathematica

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 *)

Formula

a(1)=1, a(n) = ceiling(Sum_{k=1..n-1} A128022(k)/n).

Extensions

Extended by Ray Chandler, Feb 12 2007