A287361 Positions of 0 in A287360.

1, 4, 13, 16, 19, 28, 37, 46, 51, 56, 59, 62, 71, 74, 77, 86, 89, 92, 101, 110, 119, 124, 129, 132, 135, 144, 153, 162, 167, 172, 175, 178, 187, 196, 205, 210, 215, 218, 221, 230, 235, 240, 243, 246, 255, 260, 265, 268, 271, 280, 283, 286, 295, 298, 301, 310

Offset

1,2

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 12] (* A287360 *)
Flatten[Position[s, 0]] (* A287361 *)
Flatten[Position[s, 1]] (* A287362 *)
Flatten[Position[s, 2]] (* A287363 *)

Crossrefs

Cf. A287360, A287362, A287363.

Sequence in context: A144947 A022416 A027757 * A165336 A031181 A074262

Adjacent sequences: A287358 A287359 A287360 * A287362 A287363 A287364

Keyword

nonn,easy

Author

Clark Kimberling, May 24 2017

Status

approved