login
A285346
Positions of 0 in A285345; complement of A285347.
6
3, 4, 7, 8, 10, 12, 15, 16, 19, 20, 22, 24, 27, 28, 30, 33, 34, 36, 39, 40, 43, 44, 46, 48, 51, 52, 55, 56, 58, 60, 63, 64, 66, 69, 70, 72, 75, 76, 79, 80, 82, 84, 87, 88, 90, 93, 94, 97, 98, 100, 102, 105, 106, 108, 111, 112, 115, 116, 118, 120, 123, 124
OFFSET
1,1
COMMENTS
Conjecture: 2n + 1 - a(n) is in {0,1} for n>=1; see A285351.
LINKS
EXAMPLE
As a word, A285345 = 1100110..., in which 0 is in positions 3,4,7,8,10,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 0}}] &, {0}, 10] (* A285345 *)
Flatten[Position[s, 0]] (* A285346 *)
Flatten[Position[s, 1]] (* A285347 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 25 2017
STATUS
approved