OFFSET
1,2
COMMENTS
Periodic with period 244944.
Described in Numerical Recipes as a "quick and dirty" generator.
LINKS
FORMULA
a(n) = (1597 * a(n-1) + 51749) mod 244944.
MAPLE
a:= proc(n) option remember; `if`(n<2, n,
irem(1597*a(n-1)+51749, 244944))
end:
seq(a(n), n=1..44); # after Alois P. Heinz
MATHEMATICA
NestList[Mod[1597*# + 51749, 244944] &, 1, 50] (* after Paolo Xausa *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Sean A. Irvine, Jun 26 2025
STATUS
approved
