A385464 Consecutive internal states of the linear congruential pseudo-random number generator (9301*s + 49297) mod 233280 when started at 1.
1, 58598, 127215, 79852, 222509, 178626, 29563, 210920, 164697, 179614, 121031, 182628, 160645, 50042, 96339, 69856, 95153, 3030, 4447, 120284, 233181, 61618, 222635, 184152, 105289, 32846, 186423, 232660, 114677, 103914, 74371, 98768, 33825, 194182, 82319
Offset: 1
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).
Links
Programs
-
Maple
a:= proc(n) option remember; `if`(n<2, n, irem(9301*a(n-1)+49297, 233280)) end: seq(a(n), n=1..45); # after Alois P. Heinz -
Mathematica
NestList[Mod[9301*# + 49297, 233280] &, 1, 50]
Formula
a(n) = (9301*a(n-1) + 49297) mod 233280.
Comments