A284946 Positions of 1 in A284944; complement of A284945.

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 20, 21, 22, 23, 25, 26, 27, 29, 30, 31, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 48, 49, 50, 51, 53, 54, 55, 57, 58, 59, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 82, 83, 84, 85, 87, 88, 89, 91, 92

Offset: 1

Author

Clark Kimberling, Apr 18 2017

Keywords

• nonn
• easy

Comments

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

Examples

			As a word, A284938 = 011110..., in which 1 is in positions 12,3,4,5,7,...
		

Links

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

Crossrefs

Cf. A284945, A284946.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 1, 0}}] &, {0}, 6] (* A284944 *)
Flatten[Position[s, 0]]  (* A284945 *)
Flatten[Position[s, 1]]  (* A284946 *)