A285137 Positions of 0 in A285136; complement of A285138.

2, 4, 6, 7, 8, 9, 11, 12, 13, 16, 18, 20, 22, 23, 24, 25, 27, 28, 29, 32, 34, 36, 38, 39, 40, 41, 43, 44, 45, 48, 49, 50, 51, 54, 55, 56, 57, 60, 61, 62, 63, 66, 68, 70, 72, 73, 74, 75, 77, 78, 79, 82, 83, 84, 85, 88, 89, 90, 91, 94, 96, 98, 100, 101, 102

Offset

1,1

Comments

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

Links

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

Example

As a word, A285136 = 10101000010..., in which 0 is in positions 2,4,6,7,...

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

Sequence in context: A229785 A101616 A322678 * A047295 A039045 A050481

Adjacent sequences: A285134 A285135 A285136 * A285138 A285139 A285140

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved