A285141 Positions of 1 in A285139; complement of A285140.

3, 5, 9, 11, 13, 15, 19, 21, 25, 27, 29, 31, 35, 37, 41, 43, 47, 49, 53, 55, 57, 59, 63, 65, 69, 71, 73, 75, 79, 81, 85, 87, 89, 91, 95, 97, 101, 103, 105, 107, 111, 113, 117, 119, 123, 125, 129, 131, 133, 135, 139, 141, 145, 147, 149, 151, 155, 157, 161

Offset

1,1

Comments

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

Links

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

Example

As a word, A285139 = 001010..., in which 1 is in positions 3,5,9,11,,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 0}}] &, {0}, 12]; (* A285139 *)
Flatten[Position[s, 0]];  (* A285140 *)
Flatten[Position[s, 1]];  (* A285141 *)

Crossrefs

Cf. A285139, A285140, A285142.

Sequence in context: A325129 A368603 A173263 * A329095 A319009 A294427

Adjacent sequences: A285138 A285139 A285140 * A285142 A285143 A285144

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved