This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A383940 #27 Jun 17 2025 17:48:01 %S A383940 1,39022,61087,20196,45005,3882,21259,65216,19417,30502,20919,26076, %T A383940 16421,44130,63139,32824,14513,51934,36303,35284,8573,11930,41787, %U A383940 65200,9865,29590,743,39628,46037,30162,47315,23080,30049,20814,4351,30916,22317,25098 %N A383940 Consecutive states of the linear congruential pseudo-random number generator (25173*s+13849) mod 2^16 when started at s=1. %C A383940 Periodic with period 2^16. %C A383940 This was a popular generator in the 1980's due to Grogono's book, but the period was too short for serious scientific use. %D A383940 Peter Grogono, Programming in Pascal (2nd ed.), Addison-Wesley, 1984 (see pp. 136-137). %H A383940 Sean A. Irvine, <a href="/A383940/b383940.txt">Table of n, a(n) for n = 1..10000</a> %H A383940 Stephen K. Park and Keith W. Miller, <a href="https://doi.org/10.1145/63039.63042">Random number generators: good ones are hard to find</a>, Communications of the ACM, Vol 31, 10 (1988), 192-201. %H A383940 W. E. Sharp and Carter Bays, <a href="https://doi.org/10.1016/0098-3004(92)90060-5">A review of portable random number generators</a>, Computers and Geosciences, 18, 1 (1982), 79-87. %H A383940 <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a> %H A383940 <a href="/index/Rec#order_65536">Index entries for linear recurrences with constant coefficients</a>, order 65536. %F A383940 a(n) = (25173 * a(n-1) + 13849) mod 2^16. %t A383940 NestList[Mod[25173*# + 13849, 2^16] &, 1, 100] (* _Paolo Xausa_, May 22 2025 *) %Y A383940 Cf. A096550-A096561 (other pseudo-random number generators). %Y A383940 Cf. A384082, A384085, A384150, A384194 (other early generators for Pascal). %Y A383940 Cf. A384220 (similar generator for Smalltalk-80). %K A383940 nonn,easy %O A383940 1,2 %A A383940 _Sean A. Irvine_, May 21 2025