A284931 Positions of 1 in A284929; complement of A284930.

2, 3, 5, 6, 7, 9, 10, 12, 13, 15, 16, 17, 19, 20, 21, 23, 24, 26, 27, 29, 30, 31, 33, 34, 36, 37, 39, 40, 41, 43, 44, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 60, 61, 63, 64, 65, 67, 68, 69, 71, 72, 74, 75, 77, 78, 79, 81, 82, 84, 85, 87, 88, 89, 91, 92, 94

Offset

1,1

Comments

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

Links

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

Example

As a word, A284929 = 011011..., in which 0 is in positions 2,3,5,6,7,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1, 1}}] &, {0}, 6] (* A284929 *)
Flatten[Position[s, 0]]  (* A284930 *)
Flatten[Position[s, 1]]  (* A284931 *)

Crossrefs

Cf. A284929, A284930.

Sequence in context: A097432 A364153 A230391 * A248229 A207672 A038161

Adjacent sequences: A284928 A284929 A284930 * A284932 A284933 A284934

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved