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 A270743 #6 Mar 15 2023 11:36:56
%S A270743 1,1,2,1,2,4,1,3,6,1,4,8,1,5,10,1,6,12,1,7,14,1,8,16,1,9,18,1,10,20,1,
%T A270743 11,22,1,12,24,1,13,26,1,14,28,1,15,30,1,16,32,1,17,34,1,18,36,1,19,
%U A270743 38,1,20,40,1,21,42,1,22,44,1,23,46,1,24,48,1,25
%N A270743 Runlength sequence of the zero-one sequence A270742.
%C A270743 This is the runlength sequence for C = (1/2)*(3/4)*(7/8)*(15/16)... in each base (2,3,4,...); for base 10, we have C = 0.8900100999989990000001000..., as in A132038.
%H A270743 Clark Kimberling, <a href="/A270743/b270743.txt">Table of n, a(n) for n = 1..1000</a>
%F A270743 a(3n) = 2n for n > 0, a(3n+1) = 1 for n >= 0, a(3n+2) = n + 1 for n >= 0.
%e A270743 (zero-one sequence at A270742) = (0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,...), with first 6 runs 0, 1, 00, 1, 00, 1111 of lengths 1,1,2,1,2,4.
%t A270743 d = Join[{0}, RealDigits[QPochhammer[1/2], 2, 200000][[1]]];
%t A270743 u = Map[Length, Split[d]]
%Y A270743 Cf. A132038, A270742.
%K A270743 nonn,easy
%O A270743 1,3
%A A270743 _Clark Kimberling_, Apr 04 2016