Revision as of 08:15, 1 August 2021 (view source) rosettacode>Paddy3118 (Add Terence Tao presentation.) ← Older edit		Revision as of 10:51, 13 August 2021 (view source) rosettacode>JonMcLoone (→‎Validation) Newer edit →
Line 5,916: I use this version to do the validation: <lang Mathematica>Hailstone[n_] := NestWhileList[~~Which~~If[Mod[#, 2] == 0, #/2~~, True~~, ( 3*# + 1) ] &, n, # != 1 &];

Hailstone sequence: Difference between revisions

Hailstone sequence (view source)