A284914 Positions of 1 in A284912; complement of A284913.

2, 3, 5, 7, 9, 12, 13, 15, 18, 19, 21, 24, 25, 27, 30, 32, 33, 35, 37, 39, 42, 43, 45, 48, 50, 51, 53, 55, 57, 60, 61, 63, 66, 68, 69, 71, 73, 75, 78, 79, 81, 84, 86, 87, 89, 92, 93, 95, 97, 99, 102, 103, 105, 108, 109, 111, 114, 115, 117, 120, 122, 123, 125

Offset

1,1

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 1 is in positions 2,3,5,7,9,...

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, A284913.

Sequence in context: A120431 A214548 A254440 * A293262 A348623 A200049

Adjacent sequences: A284911 A284912 A284913 * A284915 A284916 A284917

Keyword

nonn,easy

Author

Clark Kimberling, Apr 17 2017

Status

approved