A285207 Positions of 1 in A285205; complement of A285206.

2, 5, 7, 10, 13, 15, 18, 21, 24, 27, 29, 32, 35, 37, 40, 43, 45, 48, 51, 53, 56, 59, 62, 65, 67, 70, 73, 75, 78, 81, 84, 87, 89, 92, 95, 97, 100, 103, 105, 108, 111, 113, 116, 119, 122, 125, 127, 130, 133, 135, 138, 141, 144, 147, 149, 152, 155, 157, 160

Offset

1,1

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 = 01001010010010..., in which 1 is in positions 2,5,7,10,,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0, 0}}] &, {0}, 12]; (* A285205 *)
Flatten[Position[s, 0]];  (* A285206 *)
Flatten[Position[s, 1]];  (* A285207 *)

Crossrefs

Cf. A285205, A285206, A285208.

Sequence in context: A038127 A047480 A376284 * A140398 A344988 A255774

Adjacent sequences: A285204 A285205 A285206 * A285208 A285209 A285210

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Status

approved