A284746 Positions of 0 in A284745; complement of A191263.

1, 3, 4, 5, 6, 8, 10, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 26, 27, 29, 30, 31, 32, 34, 36, 38, 40, 41, 42, 43, 45, 47, 49, 51, 52, 53, 54, 56, 58, 60, 62, 63, 64, 65, 67, 69, 71, 73, 74, 75, 76, 78, 79, 80, 81, 83, 84, 85, 86, 88, 89, 90, 91, 93, 95

Offset: 1

Author

Clark Kimberling, Apr 13 2017

Keywords

• nonn
• easy

Comments

Conjecture: a(n)/n -> (5 + sqrt(13))/6.

From Andrey Zabolotskiy, Apr 13 2017: The conjecture is true since it states that the fraction of 0's is equal to 6/(5 + sqrt(13)), which is the invariant value of the fraction of 0's under the morphism.

Examples

			As a word, A284745 = 01000010101..., in which 0 is in positions 1,3,4,5,6,8,...
		

Links

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

Crossrefs

Cf. A191263, A284744.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 0}}] &, {0}, 7] (* A284745 *)
Flatten[Position[s, 0]]  (* this sequence *)
Flatten[Position[s, 1]]  (* A191263 *)