2 lines
73 B
Text
2 lines
73 B
Text
|
HailstoneF[n_] := NestWhileList[If[OddQ[#], 3 # + 1, #/2] &, n, # > 1 &]
|