fPart(1-min(ΔList(fPart(abs(Ans){40014²,40692}/(2^31-{85,249

Also, I noticed that the number zero didn't work correctly in this formula :/

]]>Is the rand formula, with the seed being the int of Ans. Idk how the the seed is calculated, though. If you have a lot of time on your hand, maybe you could do this:

store a seed to rand

calculate rand

calculate rand

go through all possible integers for seeds of the formula and find the right seed

Repeat until you have found a pattern between the original seed (or rand) and the second calculated rand.

I'm pretty busy now, so I can't help. But maybe that formula will help.

]]>` ``seq(X,X,1,500→L₁ For(X,1,500 X→rand rand→L₂(X End Plot1(Scatter,L₁,L₂,.) ZoomStat`

and it gave me a "graph" with a bunch of diagonals lines. It looks like the seed stored into rand eventually repeats. I ran a test to see if this was the case, and it wasn't for the first 500 numbers. Would it repeat if I tried a larger list? ]]>