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

Author

Alford Arnold, Oct 04 2006

Keywords

• nonn
• tabl

Examples

			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
...
		

Crossrefs

Cf. A000079, A001045, A059841, A123640.

Programs

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

Extensions

More terms from Michel Marcus, Feb 09 2014