OFFSET
0,4
COMMENTS
See A370883 for more information.
REFERENCES
Donald E. Knuth, The Art of Computer Programming, Vol. 4A: Combinatorial Algorithms, Part 1, Addison-Wesley, 2011, Section 7.2.1.6, p. 459.
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..16382 (rows 0..13 of the triangle, flattened).
EXAMPLE
Triangle begins:
[0] 0;
[1] 1 1;
[2] 2 2 0 2;
[3] 3 3 1 3 1 1 1 3;
[4] 4 4 2 4 2 2 2 4 2 2 0 2 0 2 2 4;
...
MATHEMATICA
countLR[s_] := StringLength[s] - StringLength[StringJoin[StringCases[s, RegularExpression["1(?R)*+0"]]]];
Array[Map[countLR, IntegerString[Range[0, 2^#-1], 2, #]] &, 7, 0]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Paolo Xausa, Mar 06 2024
STATUS
approved