A285659 Positions of 1 in A285657; complement of A285658.

1, 3, 4, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 35, 36, 37, 39, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 56, 57, 59, 60, 61, 63, 64, 65, 67, 68, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84

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, A285657 = 101111101..., in which 1 is in positions 1,3,4,5,6,7,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {1, 0, 1, 1}}] &, {0}, 10] (* A285657 *)
u = Flatten[Position[s, 0]]  (* A285658 *)
Flatten[Position[s, 1]]   (* A285659 *)

Crossrefs

Cf. A285657, A285658.

Sequence in context: A002328 A039133 A113777 * A256421 A253200 A227938

Adjacent sequences: A285656 A285657 A285658 * A285660 A285661 A285662

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2017

Status

approved