zykov, благодарю за ссылки, буду разбираться!
Впрочем
![$2^{1000}$ $2^{1000}$](https://dxdy-03.korotkov.co.uk/f/a/9/d/a9dc7e88c421143c41b401d4cf7b4d2482.png)
- это перебор.
В какую память это влезет???
У меня на PARI/GP для
![$m=2^{1000}$ $m=2^{1000}$](https://dxdy-04.korotkov.co.uk/f/7/2/9/72907d1b9b014c11e41fb0e1c85e9ceb82.png)
и
![$n=1\cdots 50$ $n=1\cdots 50$](https://dxdy-04.korotkov.co.uk/f/b/a/1/ba1ca4589a00be9ffba11aa4d954394282.png)
считается за две минуты. К сожалению мой алгоритм вычисляет не отдельные значения, а первые
![$k$ $k$](https://dxdy-03.korotkov.co.uk/f/6/3/b/63bb9849783d01d91403bc9a5fea12a282.png)
значений, а также работает только для последовательностей
![$a(n)$ $a(n)$](https://dxdy-03.korotkov.co.uk/f/e/b/1/eb1e4d26da404d5c7d56055c19d365a082.png)
у которых
![$a(1)=1$ $a(1)=1$](https://dxdy-04.korotkov.co.uk/f/7/2/9/7296118ccbe51fdecd0837510ed400aa82.png)
. Вот и он:
Код:
a(n)=n--; binomial(2*n, n)/(n+1)
f(n)=my(v, v1, v2); v=vector(n+2,i,if(i==1,vector(n+2,j,a(j)),vector(n-i+3,j,(j==1)))); v1=vector(n+1,i,0); v1[1]=a(2)-1; for(i=2,n+1,for(j=2,i,v[j][i-j+2]=v[j-1][i-j+3]-sum(k=1,j-1,v1[j-k]*v[k][i-j+2])); v1[i]=v[i][2]-sum(j=1,i-1,v1[j])-1); v1
b(n,m)=my(v, v1, v2, v3); v=f(n); v1=vector(n+1,i,1); v2=v1; v3=vector(n+1,i,0); v3[1]=1; for(i=1,n,for(j=1,n-i+1,v2[j]=v1[j+1]+sum(q=1,j,(m+1)^-(j-q+1)*v[j-q+1]*v1[q])); v1=v2; v3[i+1]=v1[1];); for(i=1,n,v3[i+1]*=(m+1)^i); v3
Null, благодарю за ответ! Буду пробовать и обязательно поделюсь результатом. Функцию
![$F(u)$ $F(u)$](https://dxdy-04.korotkov.co.uk/f/f/e/3/fe3f6332102f3dbc2b058512ec093ce882.png)
надо просто возводить в степень или же для подсчета ее коэффициентов есть какой-то хитрый ход?