A385363 Consecutive states of the linear congruential pseudo-random number generator (3613*s + 45289) mod 214326 when started at s=1.

1, 48902, 123591, 138514, 45161, 109896, 167785, 138566, 18711, 135442, 90977, 183432, 89113, 92906, 80151, 76426, 120539, 42264, 145009, 150062, 188841, 128164, 157661, 210300, 73519, 119522, 11385, 28702, 11831, 139818, 41341, 25100, 71691, 159064, 135515

Offset: 1

Author

Sean A. Irvine, Jun 26 2025

Keywords

• nonn
• easy

Comments

Periodic with period 214326.

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 214326.

Crossrefs

Cf. A383126, A385340.

Programs

Maple

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

Mathematica

NestList[Mod[3613*# + 45289, 214326] &, 1, 50] (* after Paolo Xausa *)

Formula

a(n) = (3613 * a(n-1) + 45289) mod 214326.