A285279 Positions of 1 in A285277; complement of A285278.

1, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 18, 19, 22, 23, 24, 25, 27, 30, 31, 32, 34, 35, 36, 38, 39, 40, 41, 44, 45, 46, 48, 49, 50, 52, 53, 54, 55, 58, 59, 60, 62, 63, 64, 66, 67, 68, 70, 71, 72, 73, 75, 78, 79, 80, 82, 83, 84, 86, 87, 88, 89, 92, 93, 94

Offset

1,2

Comments

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

Links

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

Example

As a word, A285277 = 10011101110111..., in which 1 is in positions 1,4,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 9]; (* A285277 *)
Flatten[Position[s, 0]];  (* A285278 *)
Flatten[Position[s, 1]];  (* A285279 *)

Crossrefs

Cf. A285275, A285277, A285278.

Sequence in context: A061578 A284902 A023851 * A091242 A354834 A089585

Adjacent sequences: A285276 A285277 A285278 * A285280 A285281 A285282

Keyword

nonn,easy

Author

Clark Kimberling, Apr 25 2017

Status

approved