A285210 Positions of 1 in A285208; complement of A285209.

1, 4, 7, 9, 12, 15, 18, 21, 23, 26, 29, 31, 34, 37, 40, 43, 45, 48, 51, 53, 56, 59, 61, 64, 67, 69, 72, 75, 78, 81, 83, 86, 89, 91, 94, 97, 100, 103, 105, 108, 111, 113, 116, 119, 122, 125, 127, 130, 133, 135, 138, 141, 144, 147, 149, 152, 155, 157, 160, 163

Offset

1,2

Comments

Conjecture: 0 < n*r - a(n) < 3, where r = 1 + sqrt(3).

Links

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

Example

As a word, A285205 = 1001001010..., in which 1 is in positions 1,4,7,9,12,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0, 0}}] &, {0}, 11]; (* A285208 *)
Flatten[Position[s, 0]];  (* A285209 *)
Flatten[Position[s, 1]];  (* A285210 *)

Crossrefs

Cf. A285205, A285208, A285209.

Sequence in context: A062458 A180122 A080902 * A356056 A342281 A310953

Adjacent sequences: A285207 A285208 A285209 * A285211 A285212 A285213

Keyword

nonn,easy

Author

Clark Kimberling, Apr 23 2017

Status

approved