A287676 Positions of 1 in A287674; complement of A287675.

1, 4, 5, 6, 9, 10, 13, 14, 15, 18, 19, 20, 23, 24, 27, 28, 29, 32, 33, 36, 37, 38, 41, 42, 43, 46, 47, 50, 51, 52, 55, 56, 57, 60, 61, 64, 65, 66, 69, 70, 73, 74, 75, 78, 79, 80, 83, 84, 87, 88, 89, 92, 93, 96, 97, 98, 101, 102, 103, 106, 107, 110, 111, 112

Offset

1,2

Comments

Conjecture: -1 < n*r - a(n) < 2 for n >= 1, where r = 4 - sqrt(5).

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

Conjecture: a(n) = 5*n + 2 - 2 * floor((n+1)*phi), where phi is the golden mean. - Chunqing Liu, Sep 27 2023

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "1", "1" -> "001"}]
st = ToCharacterCode[w1] - 48    (* A287674 *)
Flatten[Position[st, 0]]  (* A287675 *)
Flatten[Position[st, 1]]  (* this sequence *)

Crossrefs

Cf. A001622, A003849, A287674, A287675.

Sequence in context: A159629 A328173 A223138 * A082812 A255634 A075903

Adjacent sequences: A287673 A287674 A287675 * A287677 A287678 A287679

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved