3 lines
121 B
Text
3 lines
121 B
Text
HailstoneR[1] = {1}
|
|
HailstoneR[n_?OddQ] := Prepend[HailstoneR[3 n + 1], n]
|
|
HailstoneR[n_] := Prepend[HailstoneR[n/2], n]
|