login
A287369
Positions of 0 in A287368.
4
7, 16, 21, 26, 29, 32, 41, 50, 59, 64, 69, 72, 75, 84, 89, 94, 97, 100, 109, 114, 119, 122, 125, 134, 137, 140, 149, 152, 155, 164, 173, 182, 187, 192, 195, 198, 207, 216, 225, 230, 235, 238, 241, 250, 259, 268, 273, 278, 281, 284, 293, 298, 303, 306, 309
OFFSET
1,1
LINKS
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 14] (* A287368 *)
Flatten[Position[s, 0]] (* A287369 *)
Flatten[Position[s, 1]] (* A287370 *)
Flatten[Position[s, 2]] (* A287371 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 25 2017
STATUS
approved