A285601 Positions of 1 in A285599; complement of A285600.

1, 2, 4, 5, 6, 8, 9, 10, 12, 13, 14, 15, 16, 18, 19, 20, 22, 23, 24, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 38, 40, 41, 42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 58, 59, 60, 62, 63, 64, 65, 66, 68, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85

Offset

1,2

Comments

Conjecture: a(n)/n -> (1+sqrt(17))/4.

Links

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

Example

As a word, A285599 = 11011101110..., in which 1 is in positions 1,2,4,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1, 1}}] &, {0}, 11] (* A285599 *)
Flatten[Position[s, 0]]  (* A285600 *)
Flatten[Position[s, 1]]  (* A285601 *)

Crossrefs

Cf. A285596, A285599, A285600.

Sequence in context: A145395 A049692 A047839 * A139255 A277676 A317551

Adjacent sequences: A285598 A285599 A285600 * A285602 A285603 A285604

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2017

Status

approved