A284529 Positions of 1 in A284527; complement of A284528.

1, 2, 5, 7, 8, 9, 12, 14, 17, 21, 23, 24, 27, 29, 32, 34, 35, 38, 40, 41, 42, 45, 47, 48, 49, 52, 54, 57, 61, 63, 64, 67, 69, 72, 74, 75, 78, 80, 83, 87, 89, 90, 93, 95, 98, 102, 106, 108, 109, 112, 114, 117, 119, 120, 123, 125, 126, 127, 130, 132, 135, 139

Offset

1,2

Comments

Conjecture: a(n)/n -> (1 + sqrt(13))/2.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1, 0}}] &, {0}, 9] (* A284527 *)
Flatten[Position[s, 0]]  (* A284528 *)
Flatten[Position[s, 1]]  (* A284529 *)

Crossrefs

Cf. A284524, A284527, A284528.

Sequence in context: A339309 A167408 A047388 * A191767 A050086 A285352

Adjacent sequences: A284526 A284527 A284528 * A284530 A284531 A284532

Keyword

nonn,easy

Author

Clark Kimberling, Apr 07 2017

Status

approved