A285468 Positions of 0 in A285467; complement of A285469.

7, 8, 9, 17, 18, 19, 27, 28, 29, 37, 38, 39, 47, 48, 49, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 91, 92, 93, 101, 102, 103, 111, 112, 113, 121, 122, 123, 131, 132, 133, 141, 142, 143, 151, 152, 153, 155, 156, 157

Offset

1,1

Links

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

Example

As a word, A285467 = 11111100011..., in which 0 is in positions 7,8,9,17,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 0, 1}}] &, {0}, 11] (* A285467 *)
Flatten[Position[s, 0]]  (* A285468 *)
Flatten[Position[s, 1]]  (* A285469 *)

Crossrefs

Cf. A285464, A285467, A285469.

Sequence in context: A047523 A108177 A165480 * A060258 A307585 A347809

Adjacent sequences: A285465 A285466 A285467 * A285469 A285470 A285471

Keyword

nonn,easy

Author

Clark Kimberling, Apr 29 2017

Status

approved