OFFSET
2,2
EXAMPLE
Begins:
row triangle positions of 3's
1 2 -> none;
2 3 -> 1;
3 123 -> 3;
4 2312 -> 2;
5 31232 -> 1, 4;
6 123231 -> 3, 5;
7 2312331 -> 2, 5, 6;
8 31232312 -> 1, 4, 6;
MATHEMATICA
w = {1}; Rest@ Reap[Do[w = PadRight[Flatten[Replace[w, {1 -> 2, 2 -> 3, 3 -> {1, 2, 3} }, 2] ], i]; Sow[Position[w, 3][[All, 1]] ], {i, 20}] ][[-1, 1]] // Flatten (* Michael De Vlieger, Jun 30 2026 *)
CROSSREFS
KEYWORD
nonn,tabf,changed
AUTHOR
Roger L. Bagula, Jun 09 2005
EXTENSIONS
Edited by Sean A. Irvine, Jun 28 2026
Offset corrected by Jianing Song, Jul 02 2026
STATUS
approved
