login
A285342
Positions of 0 in A285341; complement of A285343.
4
2, 6, 8, 12, 16, 20, 22, 26, 28, 32, 36, 40, 42, 46, 50, 54, 56, 60, 64, 68, 70, 74, 76, 80, 84, 88, 90, 94, 96, 100, 104, 108, 110, 114, 118, 122, 124, 128, 132, 136, 138, 142, 144, 148, 152, 156, 158, 162, 166, 170, 172, 176, 180, 184, 186, 190, 192, 196
OFFSET
1,1
COMMENTS
Conjecture: 0 < n*r - a(n) < 4 for n>=1, where r = 2 + sqrt(2).
LINKS
EXAMPLE
As a word, A285341 = 1011101..., in which 0 is in positions 2,6,8,12,16,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 0, 1, 1}}] &, {0}, 10]; (* A285341 *)
u = Flatten[Position[s, 0]]; (* A285342 *)
Flatten[Position[s, 1]]; (* A285343 *)
u/2 (* A285344)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 25 2017
STATUS
approved