|
%I #4 Jun 16 2016 13:54:52
%S 1,2,3,5,7,11,16,24,35,52,77,114,168,249,368,545,806,1194,1768,2619,
%T 3879,5747,8514,12615,18692,27698,41045,60826,90141,133589,197981,
%U 293417,434861,644497,955202,1415703,2098222,3109803,4609098,6831253,10124787,15006259
%N Length of row n of the array in A274183.
%C For the limiting ratio of consecutive terms, see A274192.
%e First six rows of A274183:
%e 0
%e 1 0
%e 2 1 0
%e 3 2 1 1 0
%e 4 3 2 2 1 1 0
%e 5 4 3 3 2 2 1 2 1 1 0,
%e with lengths 1, 2, 3, 5, 7, 11.
%t g[0] = {0}; g[n_] := Join[g[n - 1] + 1, (1/2) Select[g[n - 1], IntegerQ[#/2] &]];
%t Table[Length[g[n]], {n, 0, 15}]
%Y Cf. A274183, A274192.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Jun 13 2016
|
