A285130 Positions of 1 in A285128; complement of A285139.

1, 3, 5, 7, 13, 15, 17, 19, 21, 27, 29, 31, 33, 35, 41, 43, 45, 47, 49, 55, 61, 67, 73, 79, 81, 83, 85, 87, 93, 95, 97, 99, 101, 107, 109, 111, 113, 115, 121, 123, 125, 127, 129, 135, 137, 139, 141, 143, 149, 155, 161, 167, 173, 175, 177, 179, 181, 187, 189

Offset

1,2

Comments

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

Links

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

Example

As a word, A285128 = 10101010000010..., in which 1 is in positions 1,3,5,7,13,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 0, 0}}] &, {0}, 14]; (* A285125 *)
Flatten[Position[s, 0]];  (* A285126 *)
Flatten[Position[s, 1]];  (* A285127 *)

Crossrefs

Cf. A285125, A285128, A285129.

Sequence in context: A092789 A092793 A361977 * A024909 A063241 A007591

Adjacent sequences: A285127 A285128 A285129 * A285131 A285132 A285133

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved