cp's OEIS Frontend

A383128 Consecutive internal states of the linear congruential pseudo-random number generator (321*s + 123) mod 10^5 when started at 1.

%I A383128 #17 Jun 18 2025 11:23:34
%S A383128 1,444,42647,89810,29133,51816,33059,12062,72025,20148,67631,9674,
%T A383128 5477,58240,95163,47446,30289,22892,48455,54178,91261,94904,64307,
%U A383128 42670,97193,99076,3519,29722,40885,24208,70891,56134,19137,43100,35223,6706,52749,32552
%N A383128 Consecutive internal states of the linear congruential pseudo-random number generator (321*s + 123) mod 10^5 when started at 1.
%C A383128 Periodic with period 10^5.
%H A383128 Sean A. Irvine, <a href="/A383128/b383128.txt">Table of n, a(n) for n = 1..10000</a>
%H A383128 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 A383128 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%F A383128 a(n) = (321*a(n-1) + 123) mod 10^5.
%p A383128 a:= proc(n) option remember; `if`(n<2, n,
%p A383128       irem(321*a(n-1)+123, 100000))
%p A383128     end:
%p A383128 seq(a(n), n=1..45);  # after _Alois P. Heinz_
%t A383128 NestList[Mod[321*# + 123, 10^5] &, 1, 50] (* _Paolo Xausa_, Jun 18 2025 *)
%Y A383128 Cf. A383126, A383127, A384341.
%K A383128 nonn,look,easy
%O A383128 1,2
%A A383128 _Sean A. Irvine_, Jun 17 2025