A284676 Positions of 1 in A284674; complement of A284675.

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

Comments

Conjecture: -1 < n*r - a(n) < 4 for n >= 1, where r = (-1+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, A284675, A284679.

Sequence in context: A185024 A359913 A247915 * A187681 A107750 A196736

Adjacent sequences: A284673 A284674 A284675 * A284677 A284678 A284679

Keyword

nonn,easy

Author

Clark Kimberling, Apr 08 2017

Status

approved