A287338 Positions of 0 in A287337.

1, 4, 10, 12, 16, 18, 19, 22, 28, 30, 34, 36, 40, 42, 46, 48, 50, 52, 53, 56, 60, 62, 63, 66, 72, 74, 78, 80, 82, 84, 85, 88, 92, 94, 95, 98, 101, 104, 110, 112, 116, 118, 119, 122, 128, 130, 134, 136, 140, 142, 146, 148, 150, 152, 153, 156, 160, 162, 163

Offset

1,2

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 0}, 2 -> 0}] &, {0}, 12] (* A287337 *)
Flatten[Position[s, 0]] (* A287338 *)
Flatten[Position[s, 1]] (* A287339 *)
Flatten[Position[s, 2]] (* A287340 *)

Crossrefs

Cf. A287337, A287339, A287340.

Sequence in context: A181053 A239055 A295129 * A077654 A095275 A366530

Adjacent sequences: A287335 A287336 A287337 * A287339 A287340 A287341

Keyword

nonn,easy

Author

Clark Kimberling, May 24 2017

Status

approved