A1 = 37
a = -5 (slider from -5 to 5, step 1)
A2 = If(Mod[A1, 2.0] ≟ 0.0, A1 / 2.0, 3.0 * A1 + 1.0)
A3 = If(Mod[A2, 2.0] ≟ 0.0, A2 / 2.0, 3.0 * A2 + 1.0)
A4 = If(Mod[A3, 2.0] ≟ 0.0, A3 / 2.0, 3.0 * A3 + 1.0)
A5 = If(Mod[A4, 2.0] ≟ 0.0, A4 / 2.0, 3.0 * A4 + 1.0)
A6 = If(Mod[A5, 2.0] ≟ 0.0, A5 / 2.0, 3.0 * A5 + 1.0)
A7 = If(Mod[A6, 2.0] ≟ 0.0, A6 / 2.0, 3.0 * A6 + 1.0)
A8 = If(Mod[A7, 2.0] ≟ 0.0, A7 / 2.0, 3.0 * A7 + 1.0)
A9 = If(Mod[A8, 2.0] ≟ 0.0, A8 / 2.0, 3.0 * A8 + 1.0)
A10 = If(Mod[A9, 2.0] ≟ 0.0, A9 / 2.0, 3.0 * A9 + 1.0)
A11 = If(Mod[A10, 2.0] ≟ 0.0, A10 / 2.0, 3.0 * A10 + 1.0)
A12 = If(Mod[A11, 2.0] ≟ 0.0, A11 / 2.0, 3.0 * A11 + 1.0)
A13 = If(Mod[A12, 2.0] ≟ 0.0, A12 / 2.0, 3.0 * A12 + 1.0)
A14 = If(Mod[A13, 2.0] ≟ 0.0, A13 / 2.0, 3.0 * A13 + 1.0)
A15 = If(Mod[A14, 2.0] ≟ 0.0, A14 / 2.0, 3.0 * A14 + 1.0)
A16 = If(Mod[A15, 2.0] ≟ 0.0, A15 / 2.0, 3.0 * A15 + 1.0)
A17 = If(Mod[A16, 2.0] ≟ 0.0, A16 / 2.0, 3.0 * A16 + 1.0)
A18 = If(Mod[A17, 2.0] ≟ 0.0, A17 / 2.0, 3.0 * A17 + 1.0)
A19 = If(Mod[A18, 2.0] ≟ 0.0, A18 / 2.0, 3.0 * A18 + 1.0)
A20 = If(Mod[A19, 2.0] ≟ 0.0, A19 / 2.0, 3.0 * A19 + 1.0)
A21 = If(Mod[A20, 2.0] ≟ 0.0, A20 / 2.0, 3.0 * A20 + 1.0)
A22 = If(Mod[A21, 2.0] ≟ 0.0, A21 / 2.0, 3.0 * A21 + 1.0)
B1 = 13
B2 = If(Mod[B1, 2.0] ≟ 0.0, B1 / 2.0, 3.0 * B1 + 1.0)
B3 = If(Mod[B2, 2.0] ≟ 0.0, B2 / 2.0, 3.0 * B2 + 1.0)
B4 = If(Mod[B3, 2.0] ≟ 0.0, B3 / 2.0, 3.0 * B3 + 1.0)
B5 = If(Mod[B4, 2.0] ≟ 0.0, B4 / 2.0, 3.0 * B4 + 1.0)
B6 = If(Mod[B5, 2.0] ≟ 0.0, B5 / 2.0, 3.0 * B5 + 1.0)
B7 = If(Mod[B6, 2.0] ≟ 0.0, B6 / 2.0, 3.0 * B6 + 1.0)
B8 = If(Mod[B7, 2.0] ≟ 0.0, B7 / 2.0, 3.0 * B7 + 1.0)
B9 = If(Mod[B8, 2.0] ≟ 0.0, B8 / 2.0, 3.0 * B8 + 1.0)
B10 = If(Mod[B9, 2.0] ≟ 0.0, B9 / 2.0, 3.0 * B9 + 1.0)