cp's OEIS Frontend

A385363 Consecutive states of the linear congruential pseudo-random number generator (3613*s + 45289) mod 214326 when started at s=1.

%I A385363 #9 Jul 08 2025 16:49:27
%S A385363 1,48902,123591,138514,45161,109896,167785,138566,18711,135442,90977,
%T A385363 183432,89113,92906,80151,76426,120539,42264,145009,150062,188841,
%U A385363 128164,157661,210300,73519,119522,11385,28702,11831,139818,41341,25100,71691,159064,135515
%N A385363 Consecutive states of the linear congruential pseudo-random number generator (3613*s + 45289) mod 214326 when started at s=1.
%C A385363 Periodic with period 214326.
%C A385363 Described in Numerical Recipes as a "quick and dirty" generator.
%H A385363 Sean A. Irvine, <a href="/A385363/b385363.txt">Table of n, a(n) for n = 1..10000</a>
%H A385363 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%H A385363 <a href="/index/Rec#order_214326">Index entries for linear recurrences with constant coefficients</a>, order 214326.
%F A385363 a(n) = (3613 * a(n-1) + 45289) mod 214326.
%p A385363 a:= proc(n) option remember; `if`(n<2, n,
%p A385363       irem(3613*a(n-1)+45289, 214326))
%p A385363     end:
%p A385363 seq(a(n), n=1..44);  # after _Alois P. Heinz_
%t A385363 NestList[Mod[3613*# + 45289, 214326] &, 1, 50] (* after _Paolo Xausa_ *)
%Y A385363 Cf. A383126, A385340.
%K A385363 nonn,easy
%O A385363 1,2
%A A385363 _Sean A. Irvine_, Jun 26 2025