STATUS
proposed
approved
proposed
approved
editing
proposed
Paolo Xausa, <a href="/A347270/b347270.txt">Table of n, a(n) for n = 1..11325</a> (antidiagonals 1..150 of the array, flattened)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
T[n_, k_] := T[n, k] = If[k == 0, n, Function[j,
If[EvenQ[j], j/2, 3*j + 1]][T[n, k - 1]]];
Table[Table[T[d - k, k], {k, 0, d - 1}], {d, 1, 20}] // Flatten (* Jean-François Alcover, Mar 02 2022, after Alois P. Heinz *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed