A284393 Positions of 1 in A284391; complement of A284392.

1, 2, 5, 6, 7, 10, 13, 16, 17, 18, 21, 22, 23, 26, 27, 28, 31, 34, 37, 38, 39, 42, 45, 48, 49, 50, 53, 56, 59, 60, 61, 64, 65, 66, 69, 70, 71, 74, 77, 80, 81, 82, 85, 86, 87, 90, 91, 92, 95, 98, 101, 102, 103, 106, 107, 108, 111, 112, 113, 116, 119, 122, 123

Offset

1,2

Links

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

Formula

a(n) = 1 + A284390(n-1) for n >= 3.

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 9]; (* A284391 *)
Flatten[Position[s, 0]];  (* A284392 *)
Flatten[Position[s, 1]];  (* A284393 *)

Crossrefs

Cf. A284390, A284391, A284392.

Sequence in context: A047578 A259605 A367695 * A287366 A080589 A344170

Adjacent sequences: A284390 A284391 A284392 * A284394 A284395 A284396

Keyword

nonn,easy

Author

Clark Kimberling, Mar 30 2017

Status

approved