A287777 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A287777

Positions of 1 in A287773; complement of A287774.

2, 4, 6, 8, 11, 13, 15, 17, 19, 21, 23, 26, 28, 30, 32, 35, 37, 39, 41, 43, 45, 47, 50, 52, 54, 56, 58, 60, 62, 65, 67, 69, 71, 74, 76, 78, 80, 82, 84, 86, 89, 91, 93, 95, 98, 100, 102, 104, 106, 108, 110, 113, 115, 117, 119, 121, 123, 125, 128, 130, 132

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

-1 < n*r - a(n) < 1 for n >= 1, where r = (15 + 3*sqrt(5))/10.

LINKS

Table of n, a(n) for n=1..61.

MATHEMATICA

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)

w = StringJoin[Map[ToString, s]]

w1 = StringReplace[w, {"0" -> "010", "1" -> "101"}]

st = ToCharacterCode[w1] - 48 (* A287773 *)