cp's OEIS Frontend

A384150 Consecutive states of the linear congruential pseudo-random number generator (10924*s+11830) mod (2^15+1) when started at s=1.

%I A384150 #59 Jun 17 2025 17:44:46
%S A384150 1,22754,23661,2722,25475,26382,5443,28196,29103,8164,30917,31824,
%T A384150 10885,869,1776,13606,3590,4497,16327,6311,7218,19048,9032,9939,21769,
%U A384150 11753,12660,24490,14474,15381,27211,17195,18102,29932,19916,20823,32653,22637,23544
%N A384150 Consecutive states of the linear congruential pseudo-random number generator (10924*s+11830) mod (2^15+1) when started at s=1.
%C A384150 Periodic with period 32769.
%C A384150 This generator was given in Pascal by Richard Lamb in 1986. It was a reasonable generator for its time (with full period), but the period is way too small for modern use.
%D A384150 Richard Lamb, Pascal: Structure and Style, Benjamin-Cummings, 1986 (see pp. 226-227).
%H A384150 Sean A. Irvine, <a href="/A384150/b384150.txt">Table of n, a(n) for n = 1..10000</a>
%H A384150 Stephen K. Park and Keith W. Miller, <a href="https://doi.org/10.1145/63039.63042">Random number generators: good ones are hard to find</a>, Communications of the ACM, Vol 31, 10 (1988), 192-201.
%H A384150 W. E. Sharp and Carter Bays, <a href="https://doi.org/10.1016/0098-3004(92)90060-5">A review of portable random number generators</a>, Computers and Geosciences, 18, 1 (1982), 79-87.
%H A384150 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%H A384150 <a href="/index/Rec#order_32769">Index entries for linear recurrences with constant coefficients</a>, order 32769.
%F A384150 a(n) = (10924 * a(n-1) + 11830) mod (2^15+1).
%t A384150 NestList[Mod[10924*# + 11830, 2^15 + 1] &, 1, 100] (* _Paolo Xausa_, May 22 2025 *)
%o A384150 (PARI) my(f=Mod(10924, 10923*32769)); \
%o A384150 a(n) = lift(22753*f^((n-1) % 32769) - 11830) /10923; \\ _Kevin Ryde_, May 22 2025
%Y A384150 Cf. A096550-A096561 other pseudo-random number generators.
%K A384150 nonn,easy
%O A384150 1,2
%A A384150 _Sean A. Irvine_, May 21 2025