A284752 Positions of 0 in A284751; complement of A284753.

1, 3, 4, 5, 7, 9, 11, 13, 14, 15, 17, 19, 20, 21, 23, 25, 26, 27, 29, 31, 32, 33, 35, 37, 39, 41, 42, 43, 45, 47, 48, 49, 51, 53, 55, 57, 58, 59, 61, 63, 64, 65, 67, 69, 71, 73, 74, 75, 77, 79, 80, 81, 83, 85, 87, 89, 90, 91, 93, 95, 96, 97, 99, 101, 102

Offset

1,2

Comments

Conjecture: -1 < n*r - a(n) < 3 for n >= 1, where r = (3+sqrt(3))/3.

Links

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

Index entries for sequences that are fixed points of mappings

Example

As a word, A284751 = 010001..., in which 0 is in positions 1,3,4,5,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 0, 1}}] &, {0}, 6] (* A284751 *)
Flatten[Position[s, 0]]  (* A284752 *)
Flatten[Position[s, 1]]  (* A284753 *)

Crossrefs

Cf. A284751, A284753.

Sequence in context: A256455 A035242 A190941 * A161153 A128201 A347301

Adjacent sequences: A284749 A284750 A284751 * A284753 A284754 A284755

Keyword

nonn,easy

Author

Clark Kimberling, Apr 13 2017

Status

approved