A284392 Positions of 0 in A284391; complement of A284393.

3, 4, 8, 9, 11, 12, 14, 15, 19, 20, 24, 25, 29, 30, 32, 33, 35, 36, 40, 41, 43, 44, 46, 47, 51, 52, 54, 55, 57, 58, 62, 63, 67, 68, 72, 73, 75, 76, 78, 79, 83, 84, 88, 89, 93, 94, 96, 97, 99, 100, 104, 105, 109, 110, 114, 115, 117, 118, 120, 121, 125, 126

Offset

1,1

Links

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

Formula

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

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. A284389, A284391, A284393.

Sequence in context: A228145 A243064 A057549 * A047460 A193532 A068056

Adjacent sequences: A284389 A284390 A284391 * A284393 A284394 A284395

Keyword

nonn,easy

Author

Clark Kimberling, Mar 30 2017

Status

approved