login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A096555
Consecutive internal states of the linear congruential pseudo-random number generator RANDU that was used in the IBM Scientific Subroutine Library for IBM System/360 computers in the 1970's.
1
1, 65539, 393225, 1769499, 7077969, 26542323, 95552217, 334432395, 1146624417, 1722371299, 14608041, 1766175739, 1875647473, 1800754131, 366148473, 1022489195, 692115265, 1392739779, 2127401289, 229749723, 1559239569, 845238963, 1775695897, 899541067, 153401569
OFFSET
1,2
COMMENTS
Due to a poor choice of the multiplier the generator fails most 3-d criteria for randomness. 9*a(n-2)-6*a(n-1)+a(n) = 0 mod 2^31. This was first described by George Marsaglia. The animated gif in the link demonstrates the deficient behavior. The animation shows 10000 points, each of whose coordinate triples (x,y,z) were formed from successive outputs of the generator. From a suitable view angle, it can be seen that these points do not fill the 3-D space, but lie in a few planes parallel to each other.
REFERENCES
D. E. Knuth, The Art of Computer Programming Third Edition. Vol. 2 Seminumerical Algorithms. Chapter 3.3.4 The Spectral Test, Page 107. Addison-Wesley 1997.
LINKS
Sarah Belet, 'Round the Twist, Blog Entry, Friday May 16 2014
George Marsaglia, Random numbers fall mainly in the planes, Proceedings of the National Academy of Sciences, 61, 25-28, 1968.
FORMULA
a(1)=1, a(n) = 65539*a(n-1) mod 2^31. The sequence is periodic with period length 2^29.
MAPLE
a:= proc(n) option remember; `if`(n<2, n,
irem(65539 *a(n-1), 2147483648))
end:
seq(a(n), n=1..30); # Alois P. Heinz, Jun 10 2014
MATHEMATICA
NestList[Mod[#*65539, 2^31] &, 1, 50] (* Paolo Xausa, Aug 29 2024 *)
PROG
(PARI) a(n)=lift(Mod(65539, 2^31)^(n-1)) \\ Charles R Greathouse IV, Jan 13 2016
CROSSREFS
Cf. A096550-A096561 for other pseudo-random number generators.
Sequence in context: A133865 A194185 A282777 * A362950 A258533 A258526
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Jul 19 2004
STATUS
approved