A384260 Consecutive internal states of the linear congruential pseudo-random number generator 3373*s mod (2^24-3) when started at s=1.
1, 3373, 11377129, 5569986, 13861431, 13291345, 2993549, 14135764, 15869839, 9657477, 10099488, 7830634, 5395220, 11578168, 12586013, 6272959, 2625114, 12918271, 2905922, 3782514, 7737842, 11174851, 11152025, 1268779, 1402252, 15399143, 15835104, 9936813
Offset: 1
Links
- Sean A. Irvine, Table of n, a(n) for n = 1..10000
- W. E. Sharp and Carter Bays, A review of portable random number generators, Computers and Geosciences, 18, 1 (1982), 79-87.
- Index entries for sequences related to pseudo-random numbers.
Programs
-
Maple
a:= proc(n) option remember; `if`(n<2, n, irem(3373*a(n-1), 2^24-3)) end: seq(a(n), n=1..28); # Alois P. Heinz, May 23 2025 -
Mathematica
NestList[Mod[3373*#, 2^24 - 3] &, 1, 50] (* Paolo Xausa, May 26 2025 *)
Formula
a(n) = 3373 * a(n-1) mod (2^24-3).
Comments