|
| |
|
|
A103542
|
|
Binary equivalents of A102370.
|
|
4
| |
|
|
0, 11, 110, 101, 100, 1111, 1010, 1001, 1000, 1011, 1110, 1101, 11100, 10111, 10010, 10001, 10000, 10011, 10110, 10101, 10100, 11111, 11010, 11001, 11000, 11011, 11110, 111101, 101100, 100111, 100010, 100001, 100000, 100011, 100110, 100101
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| The number of 1's in the n-th term appears to match A089400. - Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 24 2005
|
|
|
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
| David Applegate, Benoit Cloitre, Philippe DELEHAM and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [pdf, ps].
D. Applegate et al., Sloping Binary Number, A New Sequence Related to the Binary Numbers
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 1, s = 0, l = Max[2, Floor[Log[2, n + 1] + 2]]}, While[k < l, If[ Mod[n + k, 2^k] == 0, s = s + 2^k]; k++ ]; s]; Table[ FromDigits[ IntegerDigits[f[n] + n, 2]], {n, 0, 35}] (from Robert G. Wilson v Mar 23 2005)
|
|
|
CROSSREFS
| Sequence in context: A094703 A144744 A169631 * A044343 A132123 A190944
Adjacent sequences: A103539 A103540 A103541 * A103543 A103544 A103545
|
|
|
KEYWORD
| nonn,easy,base,changed
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Mar 23 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 23 2005
|
| |
|
|
