A384217 Consecutive states of the linear congruential pseudo-random number generator (843314861*s+453816693) mod 2^31 when started at s=1.

1, 1297131554, 17103983, 1426780792, 2111429773, 1142766270, 888797147, 1081516660, 1471148505, 488941338, 1429379591, 2081849904, 166513637, 1928300854, 1776832243, 142642604, 236172977, 1916812562, 182141599, 551190760, 1397538365, 1487855278, 1455317259

Offset: 1

Author

Sean A. Irvine, May 29 2025

Keywords

• nonn
• easy

Comments

Periodic with period 2^31 (Dyck et al. mistakenly give the period as 2^29).

Proposed by Dyck et al. for FORTRAN 77 on VAX or IBM computers.

References

• V. A. Dyck, J. D. Lawson, and J. A. Smith, FORTRAN 77: An Introduction to Structured Problem Solving, Reston Pub. Co., 1984 (see p. 467).

Links

• Sean A. Irvine, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to pseudo-random numbers.

Crossrefs

Cf. A096550-A096561 other pseudo-random number generators.

Cf. A384387.

Programs

Maple

a:= proc(n) option remember; `if`(n<2, n,
      irem(843314861*a(n-1)[phone], 2^31))
    end:
seq(a(n), n=1..23);  # Alois P. Heinz, May 29 2025

Mathematica

NestList[Mod[843314861*# + 453816693, 2^31] &, 1, 50] (* Paolo Xausa, May 30 2025 *)

Formula

a(n) = (843314861 * a(n-1) + 453816693) mod 2^31.