login
A287361
Positions of 0 in A287360.
4
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 24 2017
STATUS
approved