A285469 Positions of 1 in A285467; complement of A285468.

1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 14, 15, 16, 20, 21, 22, 23, 24, 25, 26, 30, 31, 32, 33, 34, 35, 36, 40, 41, 42, 43, 44, 45, 46, 50, 51, 52, 53, 54, 55, 56, 60, 64, 68, 72, 76, 80, 84, 85, 86, 87, 88, 89, 90, 94, 95, 96, 97, 98, 99, 100, 104, 105, 106, 107

Offset

1,2

Links

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

Example

As a word, A285467 = 11111100011..., in which 1 is in positions 1,2,3,4,5,6,10,...

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, A285468.

Sequence in context: A143694 A037476 A007093 * A302706 A047423 A032970

Adjacent sequences: A285466 A285467 A285468 * A285470 A285471 A285472

Keyword

nonn,easy

Author

Clark Kimberling, Apr 29 2017

Status

approved