A284941 Positions of 1 in A284939; complement of A080580.

2, 3, 4, 6, 7, 8, 10, 11, 12, 14, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 30, 31, 32, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 58, 59, 60, 62, 64, 65, 66, 68, 69, 70, 72, 73, 74, 76, 78, 79, 80, 82, 83, 84, 86, 87, 88, 90, 92, 93

Offset

1,1

Comments

Conjecture: -1 < 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, A284939 = 0111011101..., in which 1 is in positions 2,3,4,6,7,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 1, 0, 1}}] &, {0}, 6] (* A284939 *)
Flatten[Position[s, 0]]  (* A080580 *)
Flatten[Position[s, 1]]  (* A284941 *)

Crossrefs

Cf. A284939, A080580.

Sequence in context: A188262 A099619 A027564 * A354767 A351714 A248559

Adjacent sequences: A284938 A284939 A284940 * A284942 A284943 A284944

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved