cp's OEIS Frontend

A385360 Consecutive states of the linear congruential pseudo-random number generator (1861*s + 49297) mod 233280 when started at s=1.

%I A385360 #10 Jul 06 2025 18:15:02
%S A385360 1,51158,76095,61132,208589,55506,2923,123560,213657,155854,126551,
%T A385360 181188,150565,81482,55299,84256,85553,166470,54127,2684,145341,
%U A385360 157378,163355,89112,24649,198206,94983,219700,204437,26874,139891,45968,215265,115702,53279
%N A385360 Consecutive states of the linear congruential pseudo-random number generator (1861*s + 49297) mod 233280 when started at s=1.
%C A385360 Periodic with period 233280.
%C A385360 Described in Numerical Recipes as a "quick and dirty" generator.
%H A385360 Sean A. Irvine, <a href="/A385360/b385360.txt">Table of n, a(n) for n = 1..10000</a>
%H A385360 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%H A385360 <a href="/index/Rec#order_233280">Index entries for linear recurrences with constant coefficients</a>, order 233280.
%F A385360 a(n) = (1861 * a(n-1) + 49297) mod 233280.
%p A385360 a:= proc(n) option remember; `if`(n<2, n,
%p A385360       irem(1861*a(n-1)+49297, 233280))
%p A385360     end:
%p A385360 seq(a(n), n=1..44);  # after _Alois P. Heinz_
%t A385360 NestList[Mod[1861*# + 49297, 233280] &, 1, 50] (* after _Paolo Xausa_ *)
%Y A385360 Cf. A383127, A385358.
%K A385360 nonn,easy
%O A385360 1,2
%A A385360 _Sean A. Irvine_, Jun 26 2025