|
| |
| |
|
|
|
1, 3, 4, 5, 8, 11, 12, 13, 14, 15, 17, 19, 20, 24, 25, 27, 31, 35, 36, 37, 38, 39, 40, 41, 43, 44, 46, 47, 48, 51, 53, 54, 55, 57, 59, 62, 63, 68, 69, 70, 72, 73, 76, 78, 80, 85, 86, 89, 94, 99, 100, 101, 102, 103, 104, 105, 106, 107, 109, 110, 111, 113, 114
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..63.
|
|
|
EXAMPLE
|
The positions of 0 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,...
are 1,3,4,5,9,11,12,13,14,15,...
|
|
|
MATHEMATICA
|
d[n_] := Rest@IntegerDigits[n + 1, 2] + 1;
t = -1 + Flatten[Array[d, 100]]
Flatten[Position[t, 0]] (* A206445 *)
Flatten[Position[t, 1]] (* A206446 *)
|
|
|
CROSSREFS
|
Cf. A076478, A206446.
Sequence in context: A103329 A080726 A101210 * A047599 A050846 A035538
Adjacent sequences: A206442 A206443 A206444 * A206446 A206447 A206448
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Clark Kimberling, Feb 08 2012
|
|
|
STATUS
|
approved
|
| |
|
|
