A284679 Positions of 1 in A284677; complement of A284678.

1, 3, 4, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 46, 47, 48, 50, 51, 52, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 67, 68, 69, 71, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86

Offset

1,2

Comments

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

Appears to differ from A284676 only at a(1). - R. J. Mathar, Apr 24 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, A284678.

Sequence in context: A137905 A285958 A179779 * A183147 A074227 A122906

Adjacent sequences: A284676 A284677 A284678 * A284680 A284681 A284682

Keyword

nonn,easy

Author

Clark Kimberling, Apr 11 2017

Status

approved