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