A141543 Triangle T(n,k) read by brows: T(n,2k)=k, T(n,2k+1) = k-n, for 0<=k<=n.

0, 0, -1, 0, -2, 1, 0, -3, 1, -2, 0, -4, 1, -3, 2, 0, -5, 1, -4, 2, -3, 0, -6, 1, -5, 2, -4, 3, 0, -7, 1, -6, 2, -5, 3, -4, 0, -8, 1, -7, 2, -6, 3, -5, 4, 0, -9, 1, -8, 2, -7, 3, -6, 4, -5, 0, -10, 1, -9, 2, -8, 3, -7, 4, -6, 5

Offset

0,5

Comments

In each row, two bisections count up.

Mentioned in A124072. [How/where? - R. J. Mathar, Jul 07 2011]

Links

Table of n, a(n) for n=0..65.

Example

0;
0, -1;
0, -2, 1;
0, -3, 1, -2;
0, -4, 1, -3, 2;
0, -5, 1, -4, 2, -3;
0, -6, 1, -5, 2, -4, 3;

Maple

A141543 := proc(n, k) if type(k, 'even') then k/2; else (k-1)/2-n ; end if; end proc:
seq(seq(A141543(n, k), k=0..n), n=0..15) ; # R. J. Mathar, Jul 07 2011

Mathematica

Flatten[Table[If[EvenQ[k], k/2, (k-1)/2-n], {n, 0, 10}, {k, 0, n}]] (* Harvey P. Dale, Sep 24 2013 *)

Crossrefs

Sequence in context: A143151 A130106 A127093 * A333432 A333500 A182720

Adjacent sequences: A141540 A141541 A141542 * A141544 A141545 A141546

Keyword

sign,easy,tabl

Author

Paul Curtz, Aug 16 2008

Status

approved