login
A285127
Positions of 1 in A285125; complement of A285126.
5
5, 11, 17, 23, 25, 27, 29, 31, 37, 43, 49, 55, 61, 63, 65, 67, 69, 75, 81, 87, 93, 99, 101, 103, 105, 107, 113, 119, 125, 131, 137, 139, 141, 143, 145, 151, 153, 155, 157, 159, 165, 167, 169, 171, 173, 179, 181, 183, 185, 187, 193, 195, 197, 199, 201, 207
OFFSET
1,1
COMMENTS
Conjecture: -3 < n*r - a(n) < 0 for n>=1, where r = 3.5621...
LINKS
EXAMPLE
As a word, A285125 = 000010000010..., in which 1 is in positions 4,11,17,...
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
Sequence in context: A314226 A314227 A123083 * A157847 A348934 A259548
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 19 2017
STATUS
approved