A285532 Positions of 1 in A285530; complement of A285533.

2, 6, 9, 10, 12, 15, 16, 17, 18, 20, 24, 28, 32, 36, 40, 43, 44, 46, 49, 50, 51, 52, 54, 58, 62, 66, 69, 70, 72, 75, 76, 77, 78, 79, 80, 82, 85, 86, 87, 88, 90, 94, 97, 98, 100, 103, 104, 105, 106, 108, 112, 116, 120, 123, 124, 126, 129, 130, 131, 132, 133

Offset

1,1

Comments

Conjecture: a(n)/n -> 2.

Links

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

Example

As a word, A285530 = 01000100..., in which 1 is in positions 2,6,9,10,12,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 0, 0}}] &, {0}, 8]  (* A285530 *)
Flatten[Position[s, 0]]  (* A285531 *)
Flatten[Position[s, 1]]  (* A285532 *)
Position[SubstitutionSystem[{0->{1, 1}, 1->{0, 1, 0, 0}}, {0}, {6}][[1]], 1]// Flatten (* Harvey P. Dale, Feb 20 2022 *)

Crossrefs

Cf. A285530, A285531, A285533.

Sequence in context: A325706 A367683 A325185 * A350944 A016726 A360136

Adjacent sequences: A285529 A285530 A285531 * A285533 A285534 A285535

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2017

Status

approved