0,3
阿洛伊斯·海因茨,n=0..13时的n,a(n)表
维基百科,配对功能
对于k>2,a(n)=c({1}^n),c(n)=n,c(n,k)=(n+k)*(n+k+1)/2+k,c(n1,…,n{k-1},nk)=c。
对于n>1,a(n)=(a(n-1)+1)*(a(n-1)+2)/2+1,对于n<=1,a(n)=n。
a(2)=c(1,1)=2*3/2+1=4。
a(3)=c(1,1,1)=c(c(1,1),1)=c(4,1)=5*6/2+1=16。
a: =程序(n)a(n):=`if`(n<2,n,(g->g*(g+1)/2)(a(n-1)+1)+1)结束:
seq(a(n),n=0..10);
a[n_]:=a[n]=如果[n<2,n,函数[g,g*(g+1)/2][a[n-1]+1]+1];
表[a[n],{n,0,10}](*Jean-François Alcover公司,2018年6月1日,来自Maple*)
囊性纤维变性。A226597号,A226598型.
上下文中的序列:A005749号 A005739号 A279887型*A318641型 A005741号 A033911型
相邻序列:A226585型 A226586型 A226587型*A226589号 A226590型 A226591型
非n
阿洛伊斯·海因茨2013年6月12日
经核准的