%I#18 2022年1月26日08:37:17
%S 1,1,2,3,5,7,11,15,22,30,41,54,73,951251622102683444334549688,
%电话861106913281637201624723023368244795424655879059508,
%电话114041365716307194402312327454325263847945425456330067402486824101011893113899161983188656219419254895295709
%N N的分区数,其中连续部分之间的差最多为7。
%C也是n的分区数,除最大的部分外,所有部分最多重复七次(通过取共轭)。
%H Vaclav Kotesovec,n的表格,n=0..10000的a(n)(Alois P.Heinz的术语0..1000)
%F G.F:1+总和(k>=1,q^k/(1-q^k)*prod(i=1..k-1,(1-qq^(8*i))/(1-q^i))。
%F a(n)=和{k=0..7}A238353(n,k).-_Alois P.Heinz,2014年3月9日
%F a(n)~7^(1/4)*exp(Pi*sqrt(7*n/12))/(2^(7/2)*3^(1/4)*n^(3/4))_瓦茨拉夫·科特索维奇,2022年1月26日
%p b:=proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
%p加(b(n-i*j,i-1),j=0..分钟(7,n/i))
%p端:
%p g:=proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
%p加(b(n-i*j,i-1),j=1…n/i))
%p端:
%p a:=n->添加(g(n,k),k=0..n):
%p序列(a(n),n=0..60);#_Alois P.Heinz,2014年3月9日
%tb[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,和[b[n-i*j,i-1],{j,0,最小值[7,n/i]}]];g[n_,i_]:=g[n,i]=如果[n==0,1,如果[i<1,0,和[b[n-i*j,i-1],{j,1,n/i}]];a[n]:=和[g[n,k],{k,0,n}];表[a[n],{n,0,60}](*_Jean-François Alcover_,2015年2月18日,在_Alois P.Heinz_*之后)
%o(PARI)N=66;q='q+O('q^N);
%o Vec(1+总和(k=1,N,q^k/(1-q^k)*prod(i=1,k-1,(1-qq^(8*i))/(1-q ^i))
%Y序列“具有最大差异d的分区数”:A000005(d=0,当n>=1时)、A034296(d=1)、A224956(d=2)、A2 38863(d=3)、A 238864(d=4)、A 28865(d=5)、A 38866(d=6),此序列、A 2338868(d=8)、A 328869(d=9)、A 00041(d-->无穷大)。
%K非n
%0、3
%A _Joerg Arndt_,2014年3月8日
|