A285275 Positions of 0 in A285274; complement of A285276.

1, 6, 8, 9, 13, 17, 22, 23, 27, 31, 36, 37, 41, 45, 50, 51, 55, 59, 63, 68, 70, 71, 75, 79, 83, 88, 89, 94, 96, 97, 101, 105, 110, 111, 115, 119, 124, 125, 129, 133, 137, 142, 144, 145, 149, 153, 158, 159, 163, 167, 172, 173, 177, 181, 185, 190, 192, 193

Offset

1,2

Comments

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

Links

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

Example

As a word, A285274 = 011110..., in which 0 is in positions 1,6,8,9,13,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 10]; (* A285274 *)
Flatten[Position[s, 0]];  (* A285275 *)
Flatten[Position[s, 1]];  (* A285276 *)

Crossrefs

Cf. A285276, A285277, A285278.

Sequence in context: A191980 A304412 A161982 * A117096 A067812 A356312

Adjacent sequences: A285272 A285273 A285274 * A285276 A285277 A285278

Keyword

nonn,easy

Author

Clark Kimberling, Apr 24 2017

Status

approved