A383129 Consecutive internal states of the linear congruential pseudo-random number generator (421*s + 54773) mod 259200 when started at 1.

1, 55194, 222647, 217960, 59133, 66566, 85459, 4212, 13625, 88498, 246831, 31424, 65077, 236190, 217163, 241996, 69489, 20042, 198055, 232728, 55661, 160054, 45507, 32420, 225193, 253026, 47519, 101872, 174885, 68558, 146491, 37884, 192737, 67450, 198423

Offset: 1

Author

Sean A. Irvine, Jun 17 2025

Keywords

• nonn
• look
• easy

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.
• Index entries for sequences related to pseudo-random numbers.
• Index entries for linear recurrences with constant coefficients, order 259200.

Crossrefs

Cf. A383126, A383127, A383128.

Programs

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 *)

Formula

a(n) = (421*a(n-1) + 54773) mod 259200.