A285343 Positions of 1 in A285341; complement of A285342.

1, 3, 4, 5, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 23, 24, 25, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 47, 48, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 71, 72, 73, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 91, 92, 93

Offset: 1

Author

Clark Kimberling, Apr 25 2017

Keywords

• nonn
• easy

Comments

Conjecture: -1 < n*sqrt(2) - a(n) < 1 for n>=1.

Examples

			As a word, A285341 = 1011101..., in which 1 is in positions 1,3,4,5,7,9,...
		

Links

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

Crossrefs

Cf. A285341, A285342, A285344.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 0, 1, 1}}] &, {0}, 10]; (* A285341 *)
u = Flatten[Position[s, 0]];  (* A285342 *)
Flatten[Position[s, 1]];  (* A285343 *)
u/2 (* A285344)