f[(x_Integer)?EvenQ] := x/2; f[x_Integer] := 3*x + 1; f[1] = 1; Export["collatz1000mathematica.png", LayeredGraphPlot English determination method or standard: SHA-1...
This should replace the File:Collatz1000mathematica.png on Wikimedia Commons and Wikipedia English. However, I do not have an auto-confirmed account, so...
