A285466 Positions of 1 in A285464; complement of A285465.

4, 8, 12, 16, 20, 24, 25, 26, 27, 28, 29, 30, 34, 38, 42, 46, 50, 54, 58, 59, 60, 61, 62, 63, 64, 68, 72, 76, 80, 84, 88, 92, 93, 94, 95, 96, 97, 98, 102, 106, 110, 114, 118, 122, 126, 127, 128, 129, 130, 131, 132, 136, 140, 144, 148, 152, 156, 160, 161, 162

Offset

1,1

Links

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

Example

As a word, A285464 = 00010001..., in which 1 is in positions 4,8,12,16,...

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 0, 1}}] &, {0}, 10] (* A285464 *)
Flatten[Position[s, 0]]  (* A285465 *)
Flatten[Position[s, 1]]  (* A285466 *)

Crossrefs

Cf. A285464, A285465, A285467.

Sequence in context: A190714 A311123 A367086 * A274141 A086133 A100716

Adjacent sequences: A285463 A285464 A285465 * A285467 A285468 A285469

Keyword

nonn,easy

Author

Clark Kimberling, Apr 29 2017

Status

approved