A284675 Positions of 0 in A284674; complement of A284676.

1, 6, 10, 14, 19, 23, 27, 32, 36, 40, 45, 49, 53, 57, 62, 66, 70, 75, 79, 83, 88, 92, 96, 100, 105, 109, 113, 118, 122, 126, 131, 135, 139, 143, 148, 152, 156, 161, 165, 169, 174, 178, 182, 187, 191, 195, 199, 204, 208, 212, 217, 221, 225, 230, 234, 238, 242

Offset

1,2

Comments

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

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 1, 1}}] &, {0}, 6] (* A284674 *)
Flatten[Position[s, 0]]  (* A284675 *)
Flatten[Position[s, 1]]  (* A284676 *)

Crossrefs

Cf. A284674, A284676, A284678.

Sequence in context: A357894 A315192 A315193 * A247916 A315194 A315195

Adjacent sequences: A284672 A284673 A284674 * A284676 A284677 A284678

Keyword

nonn,easy

Author

Clark Kimberling, Apr 08 2017

Status

approved