A284776 Positions of 0 in A284775; complement of A284777.

1, 3, 4, 7, 9, 11, 12, 15, 16, 19, 21, 22, 25, 27, 28, 31, 33, 35, 36, 39, 40, 43, 45, 47, 48, 51, 52, 55, 57, 58, 61, 63, 65, 66, 69, 70, 73, 75, 76, 79, 81, 83, 84, 87, 88, 91, 93, 94, 97, 99, 100, 103, 105, 107, 108, 111, 112, 115, 117, 119, 120, 123, 124

Offset

1,2

Comments

2n-a(n) is in {1,2} 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 1,3,4,7,...

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 *)
Position[Flatten[SubstitutionSystem[{0->{0, 1}, 1->{0, 0, 1, 1}}, {0}, {5}]], 0]//Flatten (* Harvey P. Dale, Jun 18 2022 *)

Crossrefs

Cf. A284775, A284777.

Sequence in context: A095043 A019990 A288634 * A047544 A272909 A035267

Adjacent sequences: A284773 A284774 A284775 * A284777 A284778 A284779

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved