A285033 Positions of 1 in A285031; complement of A285032.

3, 4, 8, 9, 11, 13, 17, 18, 20, 24, 27, 28, 32, 33, 37, 38, 40, 42, 46, 47, 49, 53, 56, 57, 59, 61, 65, 68, 69, 71, 73, 77, 80, 81, 85, 86, 90, 91, 93, 95, 99, 100, 102, 106, 109, 110, 112, 114, 118, 121, 122, 126, 127, 131, 132, 134, 136, 140, 143, 144, 148

Offset

1,1

Comments

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

Links

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

Example

As a word, A285031 = 00110..., in which 1 is in positions 3,4,8,9,11,...

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, A285032, A285036.

Sequence in context: A054204 A050003 A002156 * A073258 A170954 A286750

Adjacent sequences: A285030 A285031 A285032 * A285034 A285035 A285036

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved