A284913 Positions of 0 in A284912; complement of A284914.

1, 4, 6, 8, 10, 11, 14, 16, 17, 20, 22, 23, 26, 28, 29, 31, 34, 36, 38, 40, 41, 44, 46, 47, 49, 52, 54, 56, 58, 59, 62, 64, 65, 67, 70, 72, 74, 76, 77, 80, 82, 83, 85, 88, 90, 91, 94, 96, 98, 100, 101, 104, 106, 107, 110, 112, 113, 116, 118, 119, 121, 124

Offset

1,2

Comments

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

Links

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

Example

As a word, A284912 = 011010101..., in which 0 is in positions 1,4,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1, 0}}] &, {0}, 6] (* A284912 *)
Flatten[Position[s, 0]]  (* A284913 *)
Flatten[Position[s, 1]]  (* A284914 *)

Crossrefs

Cf. A284912, A284914.

Sequence in context: A272475 A184016 A075254 * A139203 A179372 A240024

Adjacent sequences: A284910 A284911 A284912 * A284914 A284915 A284916

Keyword

nonn,easy

Author

Clark Kimberling, Apr 17 2017

Status

approved