login
A284907
Positions of 1 in A284905; complement of A284906.
3
2, 3, 6, 7, 10, 12, 14, 15, 18, 19, 22, 24, 26, 27, 30, 32, 33, 36, 38, 39, 42, 43, 46, 48, 50, 51, 54, 55, 58, 60, 62, 63, 66, 68, 69, 72, 74, 75, 78, 79, 82, 84, 86, 87, 90, 92, 93, 96, 97, 100, 102, 104, 105, 108, 110, 111, 114, 115, 118, 120, 122, 123
OFFSET
1,1
COMMENTS
2n - a(n) is in {0,1} for n >=1.
LINKS
EXAMPLE
As a word, A284905 = 011001..., in which 1 is in positions 2,3,6,7,10,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 0, 1}}] &, {0}, 6] (* A284905 *)
Flatten[Position[s, 0]] (* A284906 *)
Flatten[Position[s, 1]] (* A284907 *)
CROSSREFS
Sequence in context: A271585 A351715 A285259 * A330572 A287241 A331075
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 17 2017
STATUS
approved