2 lines
108 B
Text
2 lines
108 B
Text
HailstoneP[n_] := Module[{x = {n}, s = n},
|
|
While[s > 1, x = {x, s = If[OddQ@s, 3 s + 1, s/2]}]; Flatten@x]
|