A123641 Triangular array related to sequence A123640 with row sum A001045.

1, 0, 1, 1, 0, 2, 0, 1, 0, 4, 1, 0, 2, 0, 8, 0, 1, 0, 4, 0, 16, 1, 0, 2, 0, 8, 0, 32, 0, 1, 0, 4, 0, 16, 0, 64, 1, 0, 2, 0, 8, 0, 32, 0, 128, 0, 1, 0, 4, 0, 16, 0, 64, 0, 256, 1, 0, 2, 0, 8, 0, 32, 0, 128, 0, 512, 0, 1, 0, 4, 0, 16, 0, 64, 0, 256, 0, 1024, 1

Offset

1,6

Links

Table of n, a(n) for n=1..79.

Example

For n>0 A123640 begins
1
0 1
1 0 1 1
0 1 0 0 1 1 1 1
suppressing multiple zeros and counting contiguous ones yields
1
0 1
1 0 2
0 1 0 4
1 0 2 0 8
0 1 0 4 0 16
...

Prog

(PARI) a001045(n)=(2^n-(-1)^n)/3;
lista(nn) = {last = v[2]; nb = 1; s = 0; j = 1; for (i=3, nn, if ((v[i] == last) && (s+v[i] < a001045(j)), nb++; s += v[i]; , if (last, w = nb, w = 0); print1(w, ", "); nb = 1; last = v[i]; if (s + v[i] >= a001045(j), s = 0; j++; , s += v[i]; ); ); ); } \\ Michel Marcus, Feb 09 2014

Crossrefs

Cf. A000079, A001045, A059841, A123640.

Sequence in context: A155761 A067631 A134317 * A217377 A361652 A362834

Adjacent sequences: A123638 A123639 A123640 * A123642 A123643 A123644

Keyword

nonn,tabl

Author

Alford Arnold, Oct 04 2006

Extensions

More terms from Michel Marcus, Feb 09 2014

Status

approved