A285127 Positions of 1 in A285125; complement of A285126.

5, 11, 17, 23, 25, 27, 29, 31, 37, 43, 49, 55, 61, 63, 65, 67, 69, 75, 81, 87, 93, 99, 101, 103, 105, 107, 113, 119, 125, 131, 137, 139, 141, 143, 145, 151, 153, 155, 157, 159, 165, 167, 169, 171, 173, 179, 181, 183, 185, 187, 193, 195, 197, 199, 201, 207

Offset

1,1

Comments

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

Links

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

Example

As a word, A285125 = 000010000010..., in which 1 is in positions 4,11,17,...

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, A285126.

Sequence in context: A314226 A314227 A123083 * A157847 A348934 A259548

Adjacent sequences: A285124 A285125 A285126 * A285128 A285129 A285130

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved