A285419 Positions of 0 in A285418; complement of A285420.

1, 4, 9, 12, 17, 20, 23, 26, 31, 34, 39, 42, 47, 50, 55, 58, 61, 64, 69, 72, 77, 80, 83, 86, 91, 94, 99, 102, 107, 110, 115, 118, 121, 124, 129, 132, 137, 140, 143, 146, 151, 154, 159, 162, 165, 168, 173, 176, 181, 184, 187, 190, 195, 198, 203, 206, 211, 214

Offset

1,2

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, A285418 = 011011..., in which 0 is in positions 1,4,9,12,17,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1}}] &, {0}, 10] (* A285418 *)
Flatten[Position[s, 0]]  (* A285419 *)
Flatten[Position[s, 1]]  (* A285420 *)

Crossrefs

Cf. A285418, A285420, A285421.

Sequence in context: A363261 A360953 A348272 * A047461 A276873 A190448

Adjacent sequences: A285416 A285417 A285418 * A285420 A285421 A285422

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2017

Status

approved