A384434 Consecutive states of the linear congruential pseudo-random number generator for CUPL when started at 1.

1, 452807053, 433305513, 1157650709, 1180241297, 1178063325, 1895799737, 1342539237, 998902817, 2132481837, 889231561, 1166702517, 2034731953, 992635261, 553238233, 124714629, 1244077121, 81139917, 194452969, 856156757, 355421649, 1238070557, 1495123449

Offset: 1

Author

Sean A. Irvine, May 28 2025

Keywords

• nonn
• easy

Comments

Periodic with period 2^29.

References

• Zaven A. Karian and Edward J. Dudewicz, Modern Statistical Systems and GPSS Simultation (2nd ed), CRC Press, 1999 (see p. 125).
• R. J. Walker, An Instruction Manual for CUPL: The Cornell University Programming Language, Cornell University, Ithaca, New York, 1967.

Links

• Sean A. Irvine, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to pseudo-random numbers.

Crossrefs

Cf. A096555.

Programs

Mathematica

NestList[Mod[5^15*#, 2^31] &, 1, 50] (* Paolo Xausa, May 30 2025 *)

Formula

a(n) = 5^15 * a(n-1) mod 2^31 = 452807053 * a(n-1) mod 2^31.