A285143 Positions of 0 in A285142; complement of A285144.

2, 4, 5, 6, 8, 10, 11, 12, 14, 16, 18, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 36, 38, 39, 40, 42, 44, 46, 48, 49, 50, 52, 54, 55, 56, 58, 60, 62, 64, 65, 66, 68, 70, 71, 72, 74, 76, 77, 78, 80, 82, 83, 84, 86, 88, 90, 92, 93, 94, 96, 98, 99, 100, 102

Offset

1,1

Comments

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

Links

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

Example

As a word, A285142 = 1010001010..., in which 0 is in positions 2,4,5,6,8,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 0}}] &, {0}, 11]; (* A285142 *)
Flatten[Position[s, 0]];  (* A285143 *)
Flatten[Position[s, 1]];  (* A285144 *)
Position[SubstitutionSystem[{0->{1, 0}, 1->{0, 0, 1, 0}}, {0}, {5}][[1]], 0]// Flatten (* Harvey P. Dale, Jan 27 2022 *)

Crossrefs

Cf. A285139, A285142, A285144.

Sequence in context: A340932 A047262 A361233 * A274436 A330330 A189796

Adjacent sequences: A285140 A285141 A285142 * A285144 A285145 A285146

Keyword

nonn,easy

Author

Clark Kimberling, Apr 20 2017

Status

approved