A384387 Consecutive states of the linear congruential pseudo-random number generator (13493037709*s+7261067085) mod 2^35 when started at s=1.

1, 20754104794, 34326110303, 33058783648, 5709053037, 32799031638, 11541606315, 32442345084, 2725994905, 16337875602, 5290419639, 32195142424, 16205355909, 13352325518, 14174310019, 8003654516, 31661086257, 1566661194, 21726656015, 17779217296, 34005826973

Offset: 1

Author

Sean A. Irvine, May 29 2025

Keywords

• nonn
• easy

Comments

Periodic with period 2^35.

Proposed by Dyck et al. for FORTRAN 77 on Honeywell 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. A384217.

Programs

Maple

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

Mathematica

NestList[Mod[13493037709*# + 7261067085, 2^35] &, 1, 50] (* Paolo Xausa, May 30 2025 *)

Formula

a(n) = (13493037709 * a(n-1) + 7261067085) mod 2^35.