login
A287243
Positions of 2 in A287240.
4
1, 5, 9, 14, 18, 22, 27, 31, 38, 43, 47, 51, 56, 60, 64, 69, 73, 80, 85, 89, 93, 98, 102, 109, 116, 121, 125, 132, 137, 141, 145, 150, 154, 158, 163, 167, 174, 179, 183, 187, 192, 196, 200, 205, 209, 216, 221, 225, 229, 234, 238, 245, 252, 257, 261, 268, 273
OFFSET
1,2
LINKS
MATHEMATICA
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 0}, 2 -> 1}] &, {1}, 11] (* A287240 *)
Flatten[Position[s, 0]] (* A287241 *)
Flatten[Position[s, 1]] (* A287242 *)
Flatten[Position[s, 2]] (* A287243 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 24 2017
STATUS
approved