A284678 Positions of 0 in A284677; complement of A284679.

2, 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,1

Comments

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

If the conjectures here and in A284675 are true, then a(n) = A284675(n) for n>1. - R. J. Mathar, May 18 2017

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 1, 1, 1}}] &, {0}, 7] (* A284677 *)
Flatten[Position[s, 0]]  (* A284678 *)
Flatten[Position[s, 1]]  (* A284679 *)

Crossrefs

Cf. A284677, A284679.

Sequence in context: A164302 A290727 A190883 * A367367 A185548 A351553

Adjacent sequences: A284675 A284676 A284677 * A284679 A284680 A284681

Keyword

nonn,easy

Author

Clark Kimberling, Apr 11 2017

Status

approved