A284930 Positions of 0 in A284929; complement of A284931.

1, 4, 8, 11, 14, 18, 22, 25, 28, 32, 35, 38, 42, 45, 48, 52, 56, 59, 62, 66, 70, 73, 76, 80, 83, 86, 90, 93, 96, 100, 104, 107, 110, 114, 117, 120, 124, 127, 130, 134, 138, 141, 144, 148, 151, 154, 158, 161, 164, 168, 172, 175, 178, 182, 186, 189, 192, 196

Offset

1,2

Comments

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

Links

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

Example

As a word, A284929 = 011011..., in which 0 is in positions 1,4,8,11,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1, 1}}] &, {0}, 6] (* A284929 *)
Flatten[Position[s, 0]]  (* A284930 *)
Flatten[Position[s, 1]]  (* A284931 *)

Crossrefs

Cf. A284929, A284931.

Sequence in context: A311035 A311036 A311037 * A311038 A311039 A311040

Adjacent sequences: A284927 A284928 A284929 * A284931 A284932 A284933

Keyword

nonn,easy

Author

Clark Kimberling, Apr 18 2017

Status

approved