cp's OEIS Frontend

PARI

\\ Row i of the generalized Wythoff array W(h),
\\ where h is an irrational number between 1 and 2,
\\ and m is the number of terms in the vectors a and b.
row(h, i, m) = {
  my(
    a=vector(m, n, floor(n*h)),
    b=vector(m, n, floor(n*h/(h-1))),
    w=[a[a[i]], b[a[i]]],
    j=3
  );
  while(1,
    if(j%2==1,
      if(w[j-1]<=#a, w=concat(w, a[w[j-1]]), return(w))
    ,
      if(w[j-2]<=#b, w=concat(w, b[w[j-2]]), return(w))
    );
    j++
  )
}
allocatemem(10^9)
row(Pi-2, 1, 10^7)