A285422 Positions of 0 in A285421; complement of A285423.

3, 6, 11, 14, 17, 20, 25, 28, 33, 36, 39, 42, 47, 50, 55, 58, 63, 66, 71, 74, 77, 80, 85, 88, 93, 96, 99, 102, 107, 110, 115, 118, 121, 124, 129, 132, 137, 140, 143, 146, 151, 154, 159, 162, 167, 170, 175, 178, 181, 184, 189, 192, 197, 200, 203, 206, 211

Offset

1,1

Comments

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

Links

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

Example

As a word, A285421 = 110110111101..., in which 0 is in positions 3,6,11,14,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1}}] &, {0}, 11] (* A285421 *)
Flatten[Position[s, 0]]  (* A285422 *)
Flatten[Position[s, 1]]  (* A285423 *)

Crossrefs

Cf. A285419, A285421, A285423.

Sequence in context: A310093 A310094 A310095 * A063275 A191270 A182669

Adjacent sequences: A285419 A285420 A285421 * A285423 A285424 A285425

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2017

Status

approved