cp's OEIS Frontend

A385357 Consecutive states of the linear congruential pseudo-random number generator (1277*s + 24749) mod 117128 when started at s=1.

%I A385357 #10 Jul 06 2025 18:12:37
%S A385357 1,26026,112727,26816,67405,11854,52795,95364,108585,8242,8263,35080,
%T A385357 79013,77142,30435,3748,8697,3658,10895,116560,2181,115942,32891,
%U A385357 94732,4289,113914,19951,85400,34381,6286,87267,75980,69225,110562,73183,11296,42997,116014
%N A385357 Consecutive states of the linear congruential pseudo-random number generator (1277*s + 24749) mod 117128 when started at s=1.
%C A385357 Periodic with period 117128.
%C A385357 Described in Numerical Recipes as a "quick and dirty" generator.
%H A385357 Sean A. Irvine, <a href="/A385357/b385357.txt">Table of n, a(n) for n = 1..10000</a>
%H A385357 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%H A385357 <a href="/index/Rec#order_117128">Index entries for linear recurrences with constant coefficients</a>, order 117128.
%F A385357 a(n) = (1277 * a(n-1) + 24749) mod 117128.
%p A385357 a:= proc(n) option remember; `if`(n<2, n,
%p A385357       irem(1277*a(n-1)+24749, 117128))
%p A385357     end:
%p A385357 seq(a(n), n=1..44);  # after _Alois P. Heinz_
%t A385357 NestList[Mod[1277*# + 24749, 117128] &, 1, 50] (* after _Paolo Xausa_ *)
%Y A385357 Cf. A385340, A385341.
%K A385357 nonn,easy
%O A385357 1,2
%A A385357 _Sean A. Irvine_, Jun 26 2025