A385360 Consecutive states of the linear congruential pseudo-random number generator (1861*s + 49297) mod 233280 when started at s=1.

1, 51158, 76095, 61132, 208589, 55506, 2923, 123560, 213657, 155854, 126551, 181188, 150565, 81482, 55299, 84256, 85553, 166470, 54127, 2684, 145341, 157378, 163355, 89112, 24649, 198206, 94983, 219700, 204437, 26874, 139891, 45968, 215265, 115702, 53279

Offset: 1

Author

Sean A. Irvine, Jun 26 2025

Keywords

• nonn
• easy

Comments

Periodic with period 233280.

Described in Numerical Recipes as a "quick and dirty" generator.

Links

• Sean A. Irvine, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to pseudo-random numbers.
• Index entries for linear recurrences with constant coefficients, order 233280.

Crossrefs

Cf. A383127, A385358.

Programs

Maple

a:= proc(n) option remember; `if`(n<2, n,
      irem(1861*a(n-1)+49297, 233280))
    end:
seq(a(n), n=1..44);  # after Alois P. Heinz

Mathematica

NestList[Mod[1861*# + 49297, 233280] &, 1, 50] (* after Paolo Xausa *)

Formula

a(n) = (1861 * a(n-1) + 49297) mod 233280.