A285420 Positions of 1 in A285418; complement of A285419.

2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 18, 19, 21, 22, 24, 25, 27, 28, 29, 30, 32, 33, 35, 36, 37, 38, 40, 41, 43, 44, 45, 46, 48, 49, 51, 52, 53, 54, 56, 57, 59, 60, 62, 63, 65, 66, 67, 68, 70, 71, 73, 74, 75, 76, 78, 79, 81, 82, 84, 85, 87, 88, 89, 90

Offset

1,1

Comments

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

Links

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

Example

As a word, A285418 = 011011..., in which 1 is in positions 2.3.5.6.7,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 1}}] &, {0}, 10] (* A285418 *)
Flatten[Position[s, 0]]  (* A285419 *)
Flatten[Position[s, 1]]  (* A285420 *)

Crossrefs

Cf. A285418, A285419, A285421.

Sequence in context: A000452 A307295 A047587 * A028737 A371731 A109423

Adjacent sequences: A285417 A285418 A285419 * A285421 A285422 A285423

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2017

Status

approved