A285206 Positions of 0 in A285205; complement of A285207.

1, 3, 4, 6, 8, 9, 11, 12, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 30, 31, 33, 34, 36, 38, 39, 41, 42, 44, 46, 47, 49, 50, 52, 54, 55, 57, 58, 60, 61, 63, 64, 66, 68, 69, 71, 72, 74, 76, 77, 79, 80, 82, 83, 85, 86, 88, 90, 91, 93, 94, 96, 98, 99, 101, 102

Offset

1,2

Comments

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

Links

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

Example

As a word, A285205 = 01001010010010..., in which 0 is in positions 1,3,4,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 0, 0}}] &, {0}, 12]; (* A285205 *)
Flatten[Position[s, 0]];  (* A285206 *)
Flatten[Position[s, 1]];  (* A285207 *)

Crossrefs

Cf. A285205, A285207, A285208.

Sequence in context: A322741 A161579 A276214 * A047416 A064724 A285676

Adjacent sequences: A285203 A285204 A285205 * A285207 A285208 A285209

Keyword

nonn,easy

Author

Clark Kimberling, Apr 21 2017

Extensions

Name corrected by Michel Dekking, Feb 24 2021

Status

approved