A284396 -id:A284396 - cp's OEIS frontend

A284394 {101->2}-transform of the infinite Fibonacci word A003849.

0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 1

Offset: 1

Clark Kimberling, May 02 2017

The sequences p = A032766, q = A284395, r = A284396, of positions of 0,1,2, respectively, partition the positive integers. Let t,u,v be the slopes of p, q, r, respectively. Then t = 3/2, u = (9+3*sqrt(5))/2, v = (3+3*sqrt(5))/2, and 1/t + 1/u + 1/v = 1.

			As a word, A003849 = 01001010010010100..., and replacing each 101 by 2 gives 01002001002002001...

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

Cf. A003849, A032766, A284395, A284396.

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 13]  (* A003849 *)
w = StringJoin[Map[ToString, s]]; w1 = StringReplace[w, {"101" -> "2"}]
st = ToCharacterCode[w1] - 48 (* A284394 *)
Flatten[Position[st, 0]]  (* A032766 *)
Flatten[Position[st, 1]]  (* A284395 *)
Flatten[Position[st, 2]]  (* A284396 *)

A284395 Positions of 1 in A284394.

Original entry on oeis.org

2, 8, 17, 23, 32, 41, 47, 56, 62, 71, 80, 86, 95, 104, 110, 119, 125, 134, 143, 149, 158, 164, 173, 182, 188, 197, 206, 212, 221, 227, 236, 245, 251, 260, 269, 275, 284, 290, 299, 308, 314, 323, 329, 338, 347, 353, 362, 371, 377, 386, 392, 401, 410, 416, 425

Offset: 1

Clark Kimberling, May 02 2017

The sequences p = A032766, q = A285395, r = A284396 of positions of 0,1,2, respectively, partition the positive integers. Let t,u,v be the slopes of p, q, r, respectively. Then t = 3/2, u = (9+3*sqrt(5))/2, v = (3+3*sqrt(5))/2, and 1/t + 1/u + 1/v = 1.

			As a word, A284394 = 01002001002002001..., in which the positions of 1 are 2,8,17,...

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

Cf. A003849, A032766, A284394, A284396.

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 13]  (* A003849 *)
w = StringJoin[Map[ToString, s]]; w1 = StringReplace[w, {"101" -> "2"}]
st = ToCharacterCode[w1] - 48 (* A284394 *)
Flatten[Position[st, 0]]  (* A032766 *)
Flatten[Position[st, 1]]  (* A284395 *)
Flatten[Position[st, 2]]  (* A284396 *)

cp's OEIS Frontend

A284394 {101->2}-transform of the infinite Fibonacci word A003849.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica