A287332 Positions of 0 in A287331.

2, 4, 5, 6, 10, 12, 14, 15, 16, 20, 21, 22, 26, 27, 28, 32, 36, 40, 42, 44, 45, 46, 50, 52, 54, 55, 56, 60, 62, 64, 65, 66, 70, 71, 72, 76, 77, 78, 82, 86, 90, 92, 94, 95, 96, 100, 101, 102, 106, 107, 108, 112, 116, 120, 122, 124, 125, 126, 130, 131, 132

Offset

1,1

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 2}, 2 -> 0}] &, {0}, 10] (* A287331 *)
Flatten[Position[s, 0]] (* A287332 *)
Flatten[Position[s, 1]] (* A287333 *)
Flatten[Position[s, 2]] (* A287334 *)

Crossrefs

Cf. A287331, A287333, A287334.

Sequence in context: A334736 A265349 A047433 * A029465 A014871 A029513

Adjacent sequences: A287329 A287330 A287331 * A287333 A287334 A287335

Keyword

nonn,easy

Author

Clark Kimberling, May 23 2017

Status

approved