|
| |
|
|
A103583
|
|
Same as A103582, but read antidiagonals in upward direction.
|
|
6
|
|
|
|
1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
COMMENTS
|
Successive digits of A103581.
|
|
|
REFERENCES
|
David Applegate, Benoit Cloitre, Philippe DELEHAM and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers, J. Integer Seq. 8 (2005), no. 3, Article 05.3.6, 15 pp.
|
|
|
LINKS
|
Table of n, a(n) for n=0..122.
David Applegate, Benoit Cloitre, Philippe DELEHAM and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [pdf, ps].
|
|
|
MATHEMATICA
|
t = Table[ Take[ Flatten[ Table[ Join[ Table[1, {i, n}], Table[0, {i, n}]], {10}]], 15], {n, 15}]; Flatten[ Table[ t[[n - i + 1, i]], {n, 14}, {i, n}]] (from Robert G. Wilson v Mar 24 2005)
|
|
|
CROSSREFS
|
Cf. A103582, A103581, A103588, A103589.
Sequence in context: A097343 A040051 A108788 * A070178 A127254 A212312
Adjacent sequences: A103580 A103581 A103582 * A103584 A103585 A103586
|
|
|
KEYWORD
|
nonn,easy,tabl
|
|
|
AUTHOR
|
Philippe DELEHAM, Mar 24 2005
|
|
|
EXTENSIONS
|
Rechecked by David Applegate, Apr 19 2005.
|
|
|
STATUS
|
approved
|
| |
|
|
