Pseudo random number generator algorithm mathematica