OFFSET
0,5
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..3322
EXAMPLE
a(5) = 8: 00100, 00101, 00110, 00111, 01001, 10010, 10011, 11001.
a(6) = 18: 001001, 001010, 001011, 001100, 001101, 001110, 001111, 010010, 010011, 011001, 100100, 100101, 100110, 100111, 101001, 110010, 110011, 111001.
MATHEMATICA
tup[n_] := Tuples[{0, 1}, n];
cou[lst_List] := Count[lst, {0, 0, 1}] > Count[lst, {0, 0, 0}];
par[lst_List] := Partition[lst, 3, 1];
a[n_] := a[n] = Map[cou, Map[par, tup[n]]] // Boole // Total;
Monitor[Table[a[n], {n, 0, 23}], {n, Table[a[m], {m, 0, n - 1}]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert P. P. McKone, Apr 03 2024
EXTENSIONS
a(26)-a(34) from Alois P. Heinz, Apr 03 2024
STATUS
approved