OFFSET
1,2
COMMENTS
Periodic with period 259200.
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.
FORMULA
a(n) = (421*a(n-1) + 54773) mod 259200.
MAPLE
a:= proc(n) option remember; `if`(n<2, n,
irem(421*a(n-1)+54773, 259200))
end:
seq(a(n), n=1..45); # after Alois P. Heinz
MATHEMATICA
NestList[Mod[421*# + 54773, 259200] &, 1, 50] (* Paolo Xausa, Jun 18 2025 *)
CROSSREFS
KEYWORD
AUTHOR
Sean A. Irvine, Jun 17 2025
STATUS
approved
