A284389 Positions of 0 in A284388; complement of A284390.

1, 2, 4, 5, 9, 10, 12, 13, 15, 16, 20, 21, 25, 26, 30, 31, 33, 34, 36, 37, 41, 42, 44, 45, 47, 48, 52, 53, 55, 56, 58, 59, 63, 64, 68, 69, 73, 74, 76, 77, 79, 80, 84, 85, 89, 90, 94, 95, 97, 98, 100, 101, 105, 106, 110, 111, 115, 116, 118, 119, 121, 122, 126

Offset

1,2

Links

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

Formula

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1}, 1 -> {0, 0, 1}}] &, {0}, 8]; (* A284388 *)
Flatten[Position[s, 0]];  (* A284389 *)
Flatten[Position[s, 1]];  (* A284390 *)

Crossrefs

Cf. A284388, A284390, A284392.

Sequence in context: A189099 A189658 A120797 * A342735 A342750 A047613

Adjacent sequences: A284386 A284387 A284388 * A284390 A284391 A284392

Keyword

nonn,easy

Author

Clark Kimberling, Mar 30 2017

Status

approved