login
A284853
Positions of 1 in A284851; complement of A284852.
3
2, 4, 8, 10, 14, 16, 18, 20, 24, 26, 30, 32, 34, 36, 40, 42, 46, 48, 52, 54, 58, 60, 62, 64, 68, 70, 74, 76, 78, 80, 84, 86, 90, 92, 96, 98, 102, 104, 106, 108, 112, 114, 118, 120, 122, 124, 128, 130, 134, 136, 138, 140, 144, 146, 150, 152, 154, 156, 160
OFFSET
1,1
COMMENTS
Conjecture: -2 < n*r - a(n) < 4 for n >= 1, where r = 1+sqrt(3).
LINKS
FORMULA
a(n) = 2*A026367(n).
EXAMPLE
As a word, A284851 = 010100..., in which 1 is in positions 2,4,8,10,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 1, 0, 0}}] &, {0}, 6] (* A284851 *)
Flatten[Position[s, 0]] (* A284852 *)
Flatten[Position[s, 1]] (* A284853 *)
CROSSREFS
Sequence in context: A323440 A350804 A285626 * A189792 A286909 A356139
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 15 2017
STATUS
approved