A385359 Consecutive states of the linear congruential pseudo-random number generator (1597*s + 51749) mod 244944 when started at s=1.
1, 53346, 4799, 122488, 199773, 172142, 135355, 173076, 157289, 174682, 27687, 177968, 131605, 62982, 206963, 142204, 88449, 217058, 97615, 158520, 181037, 133918, 82683, 71684, 142249, 160314, 106727, 13744, 200901, 14006, 129427, 13932, 11249, 135490, 143727
Offset: 1
Links
Programs
-
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 *)
Formula
a(n) = (1597 * a(n-1) + 51749) mod 244944.
Comments