A285360 Positions of 1 in A285358; complement of A285359.

1, 2, 4, 5, 6, 8, 9, 11, 12, 14, 15, 16, 18, 19, 20, 22, 23, 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 40, 42, 43, 45, 46, 48, 49, 50, 52, 53, 54, 56, 57, 59, 60, 62, 63, 64, 66, 67, 68, 70, 71, 73, 74, 76, 77, 78, 80, 81, 83, 84, 86, 87, 88, 90, 91, 93

Offset

1,2

Comments

Conjecture: 0 < n*sqrt(2) - a(n) < 2 for n>=1.

Links

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

Example

As a word, A285358 = 1101110..., in which 1 is in positions 1,2,4,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 1}}] &, {0}, 10] (* A285358 *)
Flatten[Position[s, 0]]  (* A285359 *)
Flatten[Position[s, 1]]  (* A285360 *)

Crossrefs

Cf. A284358, A285359.

Sequence in context: A289113 A289166 A247161 * A099797 A004059 A189404

Adjacent sequences: A285357 A285358 A285359 * A285361 A285362 A285363

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved