login
A285130
Positions of 1 in A285128; complement of A285139.
3
1, 3, 5, 7, 13, 15, 17, 19, 21, 27, 29, 31, 33, 35, 41, 43, 45, 47, 49, 55, 61, 67, 73, 79, 81, 83, 85, 87, 93, 95, 97, 99, 101, 107, 109, 111, 113, 115, 121, 123, 125, 127, 129, 135, 137, 139, 141, 143, 149, 155, 161, 167, 173, 175, 177, 179, 181, 187, 189
OFFSET
1,2
COMMENTS
Conjecture: -1 < n*r - a(n) < 3 for n>=1, where r = 3.5621...
LINKS
EXAMPLE
As a word, A285128 = 10101010000010..., in which 1 is in positions 1,3,5,7,13,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0, 0}}] &, {0}, 14]; (* A285125 *)
Flatten[Position[s, 0]]; (* A285126 *)
Flatten[Position[s, 1]]; (* A285127 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 19 2017
STATUS
approved