[go: up one dir, main page]

login
A285036
Positions of 1 in A285034; complement of A285035.
4
1, 3, 7, 10, 11, 13, 15, 19, 22, 23, 27, 28, 32, 33, 35, 37, 41, 44, 45, 49, 50, 52, 54, 58, 59, 61, 65, 68, 69, 71, 73, 77, 80, 81, 83, 85, 89, 92, 93, 97, 98, 102, 103, 105, 107, 111, 114, 115, 119, 120, 122, 124, 128, 129, 131, 135, 138, 139, 143, 144
OFFSET
1,2
COMMENTS
Conjecture: -1 < n*r - a(n) < 2 for n>=1, where r = 1 + sqrt(2).
LINKS
EXAMPLE
As a word, A285034 = 10100010..., in which 1 is in positions 1,3,7,10,...
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1}}] &, {0}, 9]; (* A285034 *)
Flatten[Position[s, 0]]; (* A285035 *)
Flatten[Position[s, 1]]; (* A285036 *)
CROSSREFS
Sequence in context: A030325 A095947 A335488 * A375017 A345168 A348612
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 19 2017
STATUS
approved