A284946 Positions of 1 in A284944; complement of A284945.

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 20, 21, 22, 23, 25, 26, 27, 29, 30, 31, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 48, 49, 50, 51, 53, 54, 55, 57, 58, 59, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 82, 83, 84, 85, 87, 88, 89, 91, 92

Offset

1,1

Comments

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

Links

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

Example

As a word, A284938 = 011110..., in which 1 is in positions 12,3,4,5,7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 1, 0}}] &, {0}, 6] (* A284944 *)
Flatten[Position[s, 0]]  (* A284945 *)
Flatten[Position[s, 1]]  (* A284946 *)

Crossrefs

Cf. A284945, A284946.

Sequence in context: A187681 A107750 A196736 * A285901 A246716 A362618

Adjacent sequences: A284943 A284944 A284945 * A284947 A284948 A284949

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved