A284777 Positions of 1 in A284775; complement of A284776.

2, 5, 6, 8, 10, 13, 14, 17, 18, 20, 23, 24, 26, 29, 30, 32, 34, 37, 38, 41, 42, 44, 46, 49, 50, 53, 54, 56, 59, 60, 62, 64, 67, 68, 71, 72, 74, 77, 78, 80, 82, 85, 86, 89, 90, 92, 95, 96, 98, 101, 102, 104, 106, 109, 110, 113, 114, 116, 118, 121, 122, 125

Offset

1,1

Comments

a(n)-2n is in {0,1} for n>=1.

Links

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

Example

As a word, A284775 = 0100110..., in which 0 is in positions 2,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)
Flatten[Position[s, 0]];  (* A284776 *)
Flatten[Position[s, 1]];  (* A284777 *)

Crossrefs

Cf. A284775, A284776.

Sequence in context: A224889 A363676 A047441 * A344312 A081083 A288635

Adjacent sequences: A284774 A284775 A284776 * A284778 A284779 A284780

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved