%I#29 2020年2月20日20:30:30
%S 1,1,3,191681582155461570511625368171592231842772008388660,
%电话:2217227544024755892615027917939682131764451979736,
%电话:364283594455091420748580381852248908343969479571811846280602486672047304859817250879363083519870386700
%N[N,N,…,N](N N’s)在N^2分区的数学顺序列表中的位置。
%H Alois P.Heinz,n的表格,n=0..140的a(n)</a>
%e按Mathematica顺序,4的分区为4、31、22、211、1111。22的位置是a(2)=3。
%p b:=proc(n,i)选项记忆`如果`(n=0,1,
%p `if`(i<1,0,b(n,i-1)+` if`(i>n,0,b(n-i,i)))
%p端:
%p a:=n->1+加(b(n^2-j,j),j=n+1…n^2):
%p序列(a(n),n=0..20);#_Alois P.Heinz,2014年9月3日
%t r[n_]:=表[n,{k,1,n}];压扁[Table[Position[IntegerPartitions[n^2],r[n]],{n,0,8}]]
%t b[n,i_]:=b[n,i]=如果[n=0,1,如果[i<1,0,b[n,i-1]+如果[i>n,0,b[n-i,i]]];a[n]:=1+和[b[n^2-j,j],{j,n+1,n^2}];表[a[n],{n,0,20}](*_Jean-François Alcover_,2015年10月28日,在_Alois P.Heinz_*之后)
%Y参见A000290、A072213、A080577(Mathematica订购)、A238638、A23863、A330661、A332706。
%K nonn公司
%0、3
%2014年3月4日,A _百灵金伯利
%E a(9)-a(21)摘自_Alois P.Heinz,2014年9月3日
|