A285129 Positions of 0 in A285128; complement of A285130.

2, 4, 6, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 23, 24, 25, 26, 28, 30, 32, 34, 36, 37, 38, 39, 40, 42, 44, 46, 48, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 68, 69, 70, 71, 72, 74, 75, 76, 77, 78, 80, 82, 84, 86, 88, 89, 90, 91, 92, 94, 96

Offset

1,1

Comments

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

Links

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

Example

As a word, A285128 = 10101010000010..., in which 0 is in positions 2,4,6,8,9,...

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

Sequence in context: A263800 A168496 A328077 * A160766 A192515 A189466

Adjacent sequences: A285126 A285127 A285128 * A285130 A285131 A285132

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved