login
A285590
Positions of 0 in A285589; complement of A285591.
3
1, 3, 5, 7, 9, 11, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 37, 39, 41, 43, 45, 47, 49, 51, 53, 56, 58, 60, 62, 64, 66, 68, 70, 72, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 98, 100, 102, 104, 106, 108, 110, 112, 114, 117, 119, 121, 124, 126, 128, 131
OFFSET
1,2
COMMENTS
Conjecture: a(n)/n -> (1+sqrt(5/4).
LINKS
EXAMPLE
As a word, A285568 = 01010101010110..., in which 0 is in positions 1,3,5,7,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 0}}] &, {0}, 8] (* A285565 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"00" -> "0", "11" -> "1"}]
ss = ToCharacterCode[w1] - 48 (* A285589 *)
Flatten[Position[ss, 0]] (* A285590 *)
Flatten[Position[ss, 1]] (* A285591 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 30 2017
STATUS
approved