A285302 Positions of 0 in A285301, complement of A086398.

2, 3, 4, 6, 8, 10, 12, 13, 14, 16, 18, 19, 20, 22, 24, 25, 26, 28, 30, 31, 32, 34, 36, 38, 40, 41, 42, 44, 46, 47, 48, 50, 52, 54, 56, 57, 58, 60, 62, 63, 64, 66, 68, 70, 72, 73, 74, 76, 78, 79, 80, 82, 84, 86, 88, 89, 90, 92, 94, 95, 96, 98, 100, 101, 102

Offset: 1

Author

Clark Kimberling, Apr 25 2017

Keywords

• nonn
• easy

Comments

Conjecture: -2 < n*r - a(n) < 2 for n>=1, where r = 1 + sqrt(1/3).

Examples

			As a word, A284301 = 100010..., in which the positions of 0 are 2,3,4,6,8,...
		

Links

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

Crossrefs

Cf. A284301, A086398.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 0, 0, 0}}] &, {0}, 10]; (* A285301 *)
u = Flatten[Position[s, 0]];  (* A285302 *)
v = Flatten[Position[s, 1]];  (* A086398 *)