OFFSET
1,3
COMMENTS
This generator is a variant of A096551.
LINKS
FORMULA
a(1)=0, a(n) = (69069*a(n-1)+1) mod 2^32. The sequence is periodic with period length 2^32. [Corrected based on a comment from Kevin Ryde, Nov 13 2024]
MAPLE
a:= proc(n) option remember; `if`(n<2, 0,
irem(69069 *a(n-1)+1, 4294967296))
end:
seq(a(n), n=1..30); # Alois P. Heinz, Jun 10 2014
MATHEMATICA
NestList[Mod[#*69069 + 1, 2^32] &, 0, 50] (* Paolo Xausa, Aug 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jul 18 2004
STATUS
approved