What comes next?

[Gil]

Precisions regarding the execution (time) for finding the next number of the polynomial that creates the initial string
{ 17 72 97 8 32 15 63 97 57 60 83 48 26 12 62 3 49 55 77 97 98 0 89 57 34 92 29 75 13 40 3 2 3 83 69 1 48 87 27 54 92 3 67 28 97 56 63}:

1) time to find out f(47), the 48th number = -313323742215540: about 0.05 s (most of the time about 0.049s, but maximum time 0.058s);

2) Code used (\GS is —>capital delta)

Code:


\<< DUPDUP DUP SIZE GET SWAP 2 OVER SIZE
  START \GDLIST DUPDUP SIZE GET ROT + SWAP
  NEXT DROP +
\>>

3) No NewRPL, but original user RPL;

4) No computer, but EMU48 on Samsung phone A53;

5) Like 4, but with setting "Authentication Calculator Speed": about 5.3s —> here then more than 100 times slower.