This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A274184 #4 Jun 16 2016 13:54:52 %S A274184 1,2,3,5,7,11,16,24,35,52,77,114,168,249,368,545,806,1194,1768,2619, %T A274184 3879,5747,8514,12615,18692,27698,41045,60826,90141,133589,197981, %U A274184 293417,434861,644497,955202,1415703,2098222,3109803,4609098,6831253,10124787,15006259 %N A274184 Length of row n of the array in A274183. %C A274184 For the limiting ratio of consecutive terms, see A274192. %e A274184 First six rows of A274183: %e A274184 0 %e A274184 1 0 %e A274184 2 1 0 %e A274184 3 2 1 1 0 %e A274184 4 3 2 2 1 1 0 %e A274184 5 4 3 3 2 2 1 2 1 1 0, %e A274184 with lengths 1, 2, 3, 5, 7, 11. %t A274184 g[0] = {0}; g[n_] := Join[g[n - 1] + 1, (1/2) Select[g[n - 1], IntegerQ[#/2] &]]; %t A274184 Table[Length[g[n]], {n, 0, 15}] %Y A274184 Cf. A274183, A274192. %K A274184 nonn,easy %O A274184 0,2 %A A274184 _Clark Kimberling_, Jun 13 2016