A285036 Positions of 1 in A285034; complement of A285035.

1, 3, 7, 10, 11, 13, 15, 19, 22, 23, 27, 28, 32, 33, 35, 37, 41, 44, 45, 49, 50, 52, 54, 58, 59, 61, 65, 68, 69, 71, 73, 77, 80, 81, 83, 85, 89, 92, 93, 97, 98, 102, 103, 105, 107, 111, 114, 115, 119, 120, 122, 124, 128, 129, 131, 135, 138, 139, 143, 144

Offset

1,2

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, A285034 = 10100010..., in which 1 is in positions 1,3,7,10,...

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: A030325 A095947 A335488 * A345168 A348612 A349799

Adjacent sequences: A285033 A285034 A285035 * A285037 A285038 A285039

Keyword

nonn,easy

Author

Clark Kimberling, Apr 19 2017

Status

approved