OFFSET
1,1
EXAMPLE
.n ..... Run ............................... Length
.1 ..... 1 ................................. 1
.2 ..... 0,0,0 ............................. 3
.3 ..... 1,1,1,1,1,1........................ 6
.4 ..... 0,0,0,0,0,0,0,0,0,0 ............... 10
.5 ..... 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ..... 15
MATHEMATICA
Flatten[Table[Join[PadRight[{}, (n(n+1))/2, 1], PadRight[{}, ((n+1)(n+2))/2, 0]], {n, 1, 7, 2}]] (* Harvey P. Dale, Dec 11 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Mar 29 2008
STATUS
approved