A285138 Positions of 1 in A285136; complement of A285137.

1, 3, 5, 10, 14, 15, 17, 19, 21, 26, 30, 31, 33, 35, 37, 42, 46, 47, 52, 53, 58, 59, 64, 65, 67, 69, 71, 76, 80, 81, 86, 87, 92, 93, 95, 97, 99, 104, 105, 107, 109, 114, 118, 119, 121, 123, 125, 130, 134, 135, 137, 139, 141, 146, 150, 151, 153, 155, 157, 162

Offset

1,2

Comments

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

Links

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

Example

As a word, A285136 = 10101000010..., in which 1 is in positions 1,3,5,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0, 1}}] &, {0}, 11]; (* A285136 *)
Flatten[Position[s, 0]];  (* A285137 *)
Flatten[Position[s, 1]];  (* A285138 *)

Crossrefs

Cf. A285133, A285136, A285137.

Sequence in context: A001767 A360956 A273160 * A310018 A048214 A195094

Adjacent sequences: A285135 A285136 A285137 * A285139 A285140 A285141

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved