A285035 Positions of 0 in A285034; complement of A285036.

2, 4, 5, 6, 8, 9, 12, 14, 16, 17, 18, 20, 21, 24, 25, 26, 29, 30, 31, 34, 36, 38, 39, 40, 42, 43, 46, 47, 48, 51, 53, 55, 56, 57, 60, 62, 63, 64, 66, 67, 70, 72, 74, 75, 76, 78, 79, 82, 84, 86, 87, 88, 90, 91, 94, 95, 96, 99, 100, 101, 104, 106, 108, 109

Offset

1,1

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, A285034 = 10100010..., in which 0 is in positions 2,4,5,6,8,9,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1}}] &, {0}, 9]; (* A285034 *)
Flatten[Position[s, 0]]; (* A285035  *)
Flatten[Position[s, 1]]; (* A285036 *)

Crossrefs

Cf. A285034, A285036.

Sequence in context: A333489 A345167 A370607 * A233564 A333222 A030326

Adjacent sequences: A285032 A285033 A285034 * A285036 A285037 A285038

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved