%I #7 Feb 09 2014 17:29:26
%S 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,
%T 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,
%U 0,128,0,512,0,1,0,4,0,16,0,64,0,256,0,1024,1
%N Triangular array related to sequence A123640 with row sum A001045.
%e For n>0 A123640 begins
%e 1
%e 0 1
%e 1 0 1 1
%e 0 1 0 0 1 1 1 1
%e suppressing multiple zeros and counting contiguous ones yields
%e 1
%e 0 1
%e 1 0 2
%e 0 1 0 4
%e 1 0 2 0 8
%e 0 1 0 4 0 16
%e ...
%o (PARI) a001045(n)=(2^n-(-1)^n)/3;
%o 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
%Y Cf. A000079, A001045, A059841, A123640.
%K nonn,tabl
%O 1,6
%A _Alford Arnold_, Oct 04 2006
%E More terms from _Michel Marcus_, Feb 09 2014
|