login
A287157
Positions of 0 in A287156.
4
4, 6, 7, 11, 12, 15, 21, 23, 24, 27, 33, 34, 40, 44, 46, 47, 51, 52, 55, 61, 62, 68, 72, 74, 75, 78, 84, 88, 90, 91, 97, 99, 100, 104, 105, 108, 114, 116, 117, 120, 126, 127, 133, 137, 139, 140, 143, 149, 153, 155, 156, 162, 164, 165, 169, 170, 173, 179, 180
OFFSET
1,1
LINKS
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 11] (* A287156 *)
Flatten[Position[s, 0]] (* A287157 *)
Flatten[Position[s, 1]] (* A287158 *)
Flatten[Position[s, 2]] (* A287159 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 22 2017
STATUS
approved