login
A385463
Consecutive internal states of the linear congruential pseudo-random number generator (7141*s + 54773) mod 259200 when started at 1.
2
1, 61914, 246647, 97000, 149373, 119366, 197779, 13812, 190265, 10738, 11631, 167744, 151477, 110430, 149003, 69196, 148209, 101642, 120295, 92568, 122861, 13174, 40707, 180260, 104233, 219426, 111839, 101872, 207525, 144398, 103291, 231804, 115937, 76090
OFFSET
1,2
COMMENTS
Periodic with period 259200.
Described in Numerical Recipes as a "quick and dirty" generator.
REFERENCES
William H. Press, Saul A. Teukolsky, William T. Vetterling, and Brian P. Flannery, Numerical Recipes in C (2nd ed), Cambridge University Press, 1999 (see p. 285).
FORMULA
a(n) = (7141*a(n-1) + 54773) mod 259200.
MAPLE
a:= proc(n) option remember; `if`(n<2, n,
irem(7141*a(n-1)+54773, 259200))
end:
seq(a(n), n=1..45); # after Alois P. Heinz
MATHEMATICA
NestList[Mod[7141*# + 54773, 259200] &, 1, 50]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Sean A. Irvine, Jun 29 2025
STATUS
approved