cp's OEIS Frontend

A385359 Consecutive states of the linear congruential pseudo-random number generator (1597*s + 51749) mod 244944 when started at s=1.

%I A385359 #9 Jul 08 2025 16:45:42
%S A385359 1,53346,4799,122488,199773,172142,135355,173076,157289,174682,27687,
%T A385359 177968,131605,62982,206963,142204,88449,217058,97615,158520,181037,
%U A385359 133918,82683,71684,142249,160314,106727,13744,200901,14006,129427,13932,11249,135490,143727
%N A385359 Consecutive states of the linear congruential pseudo-random number generator (1597*s + 51749) mod 244944 when started at s=1.
%C A385359 Periodic with period 244944.
%C A385359 Described in Numerical Recipes as a "quick and dirty" generator.
%H A385359 Sean A. Irvine, <a href="/A385359/b385359.txt">Table of n, a(n) for n = 1..10000</a>
%H A385359 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%H A385359 <a href="/index/Rec#order_244944">Index entries for linear recurrences with constant coefficients</a>, order 244944.
%F A385359 a(n) = (1597 * a(n-1) + 51749) mod 244944.
%p A385359 a:= proc(n) option remember; `if`(n<2, n,
%p A385359       irem(1597*a(n-1)+51749, 244944))
%p A385359     end:
%p A385359 seq(a(n), n=1..44);  # after _Alois P. Heinz_
%t A385359 NestList[Mod[1597*# + 51749, 244944] &, 1, 50] (* after _Paolo Xausa_ *)
%Y A385359 Cf. A383126, A385357.
%K A385359 nonn,easy
%O A385359 1,2
%A A385359 _Sean A. Irvine_, Jun 26 2025