cp's OEIS Frontend

A384221 Consecutive states of the linear congruential pseudo-random number generator for the Texas Instruments TI99 when started at 1.

%I A384221 #15 May 28 2025 16:25:07
%S A384221 1,60062,56335,54564,49133,60602,58139,22240,20761,56598,51559,19676,
%T A384221 40837,55218,39667,29464,55089,14478,41919,50580,25629,39850,28619,
%U A384221 32848,62025,56582,51991,8012,28085,6306,49571,24200,609,43646,40815,14852,7245,11930
%N A384221 Consecutive states of the linear congruential pseudo-random number generator for the Texas Instruments TI99 when started at 1.
%C A384221 Periodic with period 2^16.
%H A384221 Sean A. Irvine, <a href="/A384221/b384221.txt">Table of n, a(n) for n = 1..10000</a>
%H A384221 Lee Stewart, <a href="https://forums.atariage.com/topic/274403-rnd-and-rand-pseudorandom-number-generation-by-ti-basic/">RND and RAND: Pseudorandom Number Generation by TI Basic</a>, 2018.
%H A384221 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers</a>.
%F A384221 a(n) = (28645 * a(n-1) + 31417) mod 2^16.
%p A384221 a:= proc(n) option remember; `if`(n<2, n,
%p A384221       irem(28645*a(n-1)+31417, 2^16))
%p A384221     end:
%p A384221 seq(a(n), n=1..38);  # _Alois P. Heinz_, May 22 2025
%t A384221 NestList[Mod[28645*# + 31417, 2^16] &, 1, 50] (* _Paolo Xausa_, May 23 2025 *)
%Y A384221 Cf. A096550-A096561 other pseudo-random number generators.
%K A384221 nonn,easy
%O A384221 1,2
%A A384221 _Sean A. Irvine_, May 22 2025