%I #10 Aug 29 2024 09:14:49
%S 0,1,69070,475628535,3277404108,772999773,3877832058,3821835443,
%T 1662200408,2044158073,3788989926,797919023,2743624612,1156259413,
%U 1059494674,584849259,786050992,3369345009,3077427454,1200308583,2654771836,1692139853,4052415402,1850655011
%N Consecutive internal states of the linear congruential pseudo-random number generator MTH$RANDOM that is used in the VAX VMS Library.
%C This generator is a variant of A096551.
%H Alois P. Heinz, <a href="/A096552/b096552.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ps#PRN">Index entries for sequences related to pseudo-random numbers.</a>
%F a(1)=0, a(n)=(69069*a(n-1)+1) mod 2^32. The sequence is periodic with period length 2^32-1.
%p a:= proc(n) option remember; `if`(n<2, 0,
%p irem(69069 *a(n-1)+1, 4294967296))
%p end:
%p seq(a(n), n=1..30); # _Alois P. Heinz_, Jun 10 2014
%t NestList[Mod[#*69069 + 1, 2^32] &, 0, 50] (* _Paolo Xausa_, Aug 29 2024 *)
%Y Cf. A096550-A096561 for other pseudo-random number generators.
%K nonn
%O 1,3
%A _Hugo Pfoertner_, Jul 18 2004