login
Length of row n of the array in A274183.
4

%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