A284852 Positions of 0 in A284851; complement of A284853.

1, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 19, 21, 22, 23, 25, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, 44, 45, 47, 49, 50, 51, 53, 55, 56, 57, 59, 61, 63, 65, 66, 67, 69, 71, 72, 73, 75, 77, 79, 81, 82, 83, 85, 87, 88, 89, 91, 93, 94, 95, 97, 99, 100, 101

Offset

1,2

Comments

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

Links

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

Example

As a word, A284851 = 010100..., in which 0 is in positions 1,3,5,6,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 1, 0, 0}}] &, {0}, 6] (* A284851 *)
Flatten[Position[s, 0]]  (* A284852 *)
Flatten[Position[s, 1]]  (* A284853 *)

Crossrefs

Cf. A284851, A284853.

Sequence in context: A232744 A284015 A286908 * A285627 A050876 A346125

Adjacent sequences: A284849 A284850 A284851 * A284853 A284854 A284855

Keyword

nonn,easy

Author

Clark Kimberling, Apr 15 2017

Status

approved