matched how R set.seed(int) operates
an extra test for the R seed