A285032 Positions of 0 in A285031; complement of A285033.

1, 2, 5, 6, 7, 10, 12, 14, 15, 16, 19, 21, 22, 23, 25, 26, 29, 30, 31, 34, 35, 36, 39, 41, 43, 44, 45, 48, 50, 51, 52, 54, 55, 58, 60, 62, 63, 64, 66, 67, 70, 72, 74, 75, 76, 78, 79, 82, 83, 84, 87, 88, 89, 92, 94, 96, 97, 98, 101, 103, 104, 105, 107, 108

Offset

1,2

Comments

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

Links

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

Example

As a word, A285031 = 00110..., in which 0 is in positions 1,2,5,6,7,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1}}] &, {0}, 8]; (* A285031 *)
Flatten[Position[s, 0]]; (* A285032  *)
Flatten[Position[s, 1]]; (* A285033 *)

Crossrefs

Cf. A285031, A285033, A285035.

Sequence in context: A293278 A087791 A334880 * A002157 A050002 A047578

Adjacent sequences: A285029 A285030 A285031 * A285033 A285034 A285035

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved