|
|
A083651
|
|
Triangular array, read by rows: T(n,k) = k-th bit in binary representation of n (0<=k<=n).
|
|
3
|
|
|
0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
n = Sum(T(n,k)*2^k: 0<=k<=n);
|
|
LINKS
|
|
|
EXAMPLE
|
The triangle starts
0
1 0
0 1 0
1 1 0 0
0 0 1 0 0
1 0 1 0 0 0
0 1 1 0 0 0 0
1 1 1 0 0 0 0 0
0 0 0 1 0 0 0 0 0
1 0 0 1 0 0 0 0 0 0
0 1 0 1 0 0 0 0 0 0 0
1 1 0 1 0 0 0 0 0 0 0 0
0 0 1 1 0 0 0 0 0 0 0 0 0
1 0 1 1 0 0 0 0 0 0 0 0 0 0
0 1 1 1 0 0 0 0 0 0 0 0 0 0 0
|
|
MAPLE
|
floor(n/2^k) ;
modp(%, 2) ;
|
|
MATHEMATICA
|
row[n_] := row[n] = PadRight[Reverse[IntegerDigits[n, 2]], n+1];
T[n_, k_] := row[n][[k+1]];
Table[T[n, k], {n, 0, 14}, {k, 0, n}] // Flatten
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|