A285375 Positions of 1 in A285373; complement of A285374.

1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 15, 16, 17, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 63, 64, 65, 67, 68, 69, 71, 72, 73, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 91, 92

Offset

1,2

Comments

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

Links

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

Example

As a word, A285373 = 11101110..., in which 1 is in positions 1,2,3,5,6,7,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 1, 0}}] &, {0}, 10] (* A285373 *)
Flatten[Position[s, 0]]  (* A285374 *)
Flatten[Position[s, 1]]  (* A285375 *)

Crossrefs

Cf. A284373, A285374, A285376.

Sequence in context: A074235 A325366 A192189 * A321372 A001948 A121912

Adjacent sequences: A285372 A285373 A285374 * A285376 A285377 A285378

Keyword

nonn,easy

Author

Clark Kimberling, Apr 26 2017

Status

approved