搜索: a060117-编号:a060117
|
|
|
|
0, 1, 1, 2, 1, 2, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 2, 3, 3, 4, 3, 4, 1, 2, 2, 3, 2, 3, 2, 3, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
19=3*(3!)+0*(2!)+1*(1!),因此在阶乘基中写为“301”(A007623号)。该表示中的非零位数为2,因此a(19)=2。
|
|
MAPLE公司
|
A060130型(n) =count_nonfixed(convert(PermUnrank3R(n),'disjcyc'))-nops
fac_base:=n->fac_base_aux(n,2);fac_base_aux:=proc(n,i),如果(0=n),则返回([]);否则返回([op(fac_base_aux(楼层(n/i),i+1)),(n mod i)]);fi;结束;
count_nonfixed:=l->convert(映射(nops,l),`+`);
位置:=proc(e,ll)局部a,k,l,m;l:=ll;m:=1;a:=[];而(成员(e,l[m..nops(l)],'k'))做a:=[操作(a),(k+m-1)];m:=k+m;od;返回(a);结束;
|
|
数学
|
块[{nn=105,r},r=混合基数[反向@范围[2,-1+选择第一[范围@12,#!>nn&]];数组[Count[IntegerDigits[#,r],k_/;k>0]&,nn,0]](*迈克尔·德弗利格2017年12月30日*)
|
|
黄体脂酮素
|
(方案)
(定义(A060130型n) (让循环((n n)(i 2)(s 0))(cond((零?n)s)(else(循环(商n i)(+1 i)(+s(如果(零?(余数n i))))
;; 使用memoization-macro definec的其他两种实现:
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
添加了示例部分,编辑了名称,旧的Maple-code从公式部分移走,并替换为所有新公式安蒂·卡图恩2017年12月30日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 1, 1, 3, 2, 2, 3, 1, 3, 2, 1, 3, 1, 2, 1, 2, 4, 3, 2, 1, 4, 3, 1, 3, 4, 2, 2, 3, 4, 1, 3, 2, 4, 1, 3, 1, 4, 2, 1, 4, 3, 2, 2, 4, 3, 1, 1, 4, 2, 3, 2, 4, 1, 3, 3, 4, 1, 2, 3, 4, 2, 1, 4, 2, 3, 1, 4, 1, 3, 2, 4, 3, 2, 1, 4, 3, 1, 2, 4, 2, 1, 3, 4, 1, 2, 3, 1, 2, 3, 5, 4, 2, 1, 3, 5, 4, 1, 3, 2, 5, 4, 2, 3, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
评论
|
与PermUnrank3R相比(A060117号),PermUnrank3L从左侧而不是右侧应用每个连续的换位,从而产生PermUnrank3R将产生的反转(置换)。
|
|
链接
|
|
|
配方奶粉
|
[seq(op(PermUnrank3L(j)),j=0..)];(Maple代码如下所示)
|
|
例子
|
在每一项后面加上无限个固定项,我们会得到一个自然数重排的列表,但只有有限个项进行了排列:
1/2,3,4,5,6,7,8,9,...
2,1/3,4,5,6,7,8,9,...
1,3,2/4,5,6,7,8,9,。。。
2,3,1/4,5,6,7,8,9,...
3,2,1/4,5,6,7,8,9,...
3,1,2/4,5,6,7,8,9,...
1,2,4,3/5,6,7,8,9,...
2,1,4,3/5,6,7,8,9,。。。
|
|
MAPLE公司
|
与(组);permul:=(a,b)->mulperms(b,a);PermUnrank3L:=proc(r)局部n;n:=nops(阶乘基数(r));convert(PermUnrank3Laux(n+1,r,[]),'permlist',1+((r+2)mod(r+1))*n));结束;PermUnrank3Laux:=proc(n,r,p)局部s;如果(0=r),则返回(p);其他s:=楼层(r/((n-1)!));返回(PermUnrank3Laux(n-1,r-(s*((n-1)!)),permul([[n,n-s]],p));fi;结束;
|
|
交叉参考
|
|
|
关键词
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 1, 2, 1, 1, 1, 2, 2, 3, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 3, 2, 2, 2, 3, 3, 4, 3, 3, 2, 3, 2, 3, 3, 3, 2, 2, 3, 3, 2, 2, 1, 2, 2, 3, 2, 2, 1, 2, 2, 3, 2, 2, 2, 3, 2, 3, 3, 3, 2, 2, 3, 3, 2, 2, 1, 2, 1, 2, 2, 2, 2, 3, 2, 3, 3, 3, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
评论
|
a(n)给出了n的阶乘基表示中所占的“数字斜率”的数量,或者更正式地说,给出了多集合中不同元素的数量[(ix-dx)|其中dx范围在n的阶算基表示中出现的每个非零数字上,ix是该数字从右起的位置]。此处使用基于一的索引,因此最低有效数字位于位置1。每个值{数字位置}-{数字值}决定特定非零数字在哪个斜率上。(位置-数字)=0的非零数字称为“最大斜率”(参见A260736型)“次最大值”上的值为1,等等。
占用数字斜率的数量直接转换为列表中给出的第n个排列中的下降数量A060117号因为只有在任何特定斜率上所有非零数字中最大的(因此也是最左边的)数字在由中使用的非秩算法构造时,才会向置换添加一个(单个)降A060117号.
该序列的原始定义(本质上)是:
a(n)=每个站点交换模式中数字的平均值(其中“数字”最终也可能获得任何大于9的值)A060498美元(n) 根据列表中的每个排列构造A060117号,等于该模式中使用的球数。
从以下内容可以看出新旧定义的等价性(请注意奥利维尔·杰拉德在私人邮件中):对于[1..n]的任何排列p,求和(i=1..n)p(i)-i=0(无论取模n与否),因此求和(i=1.n)(p(i]>=1。
(结束)
|
|
链接
|
|
|
配方奶粉
|
以下公式反映了计算平均值的原始定义,去掉了一些不必要的步骤:
a(n)=1/s*和{i=1..s}((p[i]-i)模s),其中p是按列表顺序排列的秩n的置换A060117号,s是其大小(其元素数),计算为s=1+A084558号(n) ●●●●。
a(n)=和{i=1..s}[p[i]<i]。[这等于排列p中的滴数(见注释)。]
a(n)=1/s*和{i=1..s}((i-p[i])模s)。[如果列表中的反向排列A060118号则我们只需颠倒第一个公式中使用的差分顺序]。
以下公式不需要置换列表的中间构造:
其他身份和观察结果。对于所有n>=0:
a(n!)=1。
(结束)
|
|
例子
|
对于n=23(阶乘基表示中的“321”,A007623号),所有数字的位置都是最大的(它们出现在“最大斜率”上),因此只有一个不同的数字斜率,a(23)=1。此外,对于排序中的第23个排列A060117号,[2341],只有一滴,因为p[4]=1<4。
对于n=29(“1021”),有三个非零数字,其中2和最右边的1都在最大斜率上,而最重要的1在“次-次-次最大”上,因此总共有两个占用斜率,a(29)=2。在第29次排列中A060117号,[23154],有两个下降,p[3]=1<3和p[5]=4<5。
对于n=37(“1201”),有三个非零数字,其中最右边的1位于最大斜率上,2位于次最大斜率,最重要的1位于“次-次-次最大”上,因此总共有三个占用斜率,a(37)=3。在第37次排列中A060117号[51324],指数2、4和5有三次下跌。
|
|
MAPLE公司
|
#以下程序遵循2001年对该序列的原始解释:
A060502号:=n->平均值(Perm2SiteSwap3(PermUnrank3R(n)));
与(组);
permul:=(a,b)->mulperms(b,a);
#factorial_base(n)给出A007623号(n) 作为一个列表,即使数字大于9,也不会损坏:
factorial_base:=进程(nn)局部n,a,d,j,f;n:=nn;如果(0=n),则返回([0]);fi;a:=[];f:=1;j:=2;而(n>0)do d:=楼层(`mod`(n,(j*f))/f);a:=[d,op(a)];n:=n-(d*f);f:=j*f;j:=j+1;od;返回(a);结束;
PermUnrank3R:=proc(r)局部n;n:=nops(阶乘基数(r));转换(PermUnrank3Raux(n+1,r,[]),'permlist',1+((r+2)mod(r+1))*n));结束;
PermUnrank3Raux:=proc(n,r,p)局部s;如果(0=r),则返回(p);其他s:=楼层(r/((n-1)!));返回(PermUnrank3Raux(n-1,r-(s*((n-1)!)),permul(p,[[n,n-s]]));fi;结束;
Perm2SiteSwap3:=进程(p)本地ip,n,i,a;n:=nops(p);ip:=转换(invperm(convert(p,'disjcyc')),'permlist',n);a:=[];对于i从1到n,如果(0=((ip[i]-i)mod n)),则a:=[op(a),0];否则a:=[op(a),n-((ip[i]-i)mod n)];fi;od;返回(a);结束;
平均值:=a->(转换(a,`+`)/nops(a));
|
|
黄体脂酮素
|
(方案,不同版本)
;; 此版本遵循原始定义(其中我们计算站点交换的平均值-“数字”,即球的数量。原始Maple程序的一些不必要的扭曲已被优化:
(定义(A060502号n) (让(s(+1(A084558号n) ))(p(A060118permvec-short n)))(let loop((a 0)(i 1))(if(>i s)(/a s)(loop(+a(modulo(-i(vector-ref p(-i 1)))s))(+1 i))))
(定义(A060502号n) (让(s(+1(A084558号n) ))(p(A060117permvec short n))(让循环((a 0)(i 1))(如果(>i s)(/a s)(循环(+a(模(-(向量参考p(-i 1))i)s))(+1 i)))))
;; 根据注释中给出的证明,平均值等于从列表中获得的排列中的下降数A060117号:
(定义(A060502号n) (让(s(+1(A084558号n) ))(p(A060117permvec short n))(让循环((d0)(i1))(如果(>i s)d(循环(+d(如果(<(向量参考p(-i 1))i)10))(+1 i)))))
(定义(permvec1逆permvec)(make-initialized-vector(向量长度permvec)(λ(i)(permvesc1find-pos-of-i-from(+1 i)permved)))
(定义(permvec1find-pos-of-i-from i permvec)(let loop((k 0))(cond((=k(矢量长度permvec))#f)((=i(矢量参考permvec-k))(+1 k)))(else(loop(+k 1))))
(定义(排列-A060118号元素大小permrank)(let((p(矢量头元素大小)))(let unrankA060118((r permrrank)(i 1))(cond((zero?r)p)(else(let*((j(1+i))(m(模r j))))r m)j)j))
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
修改了条目,有了新的解释和公式。Maple-code已清理。-Antti Karttunen,2016年8月11日
添加了另一个新的解释,原始定义移至注释中-安蒂·卡图恩2016年8月24日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 2, 3, 5, 4, 6, 7, 8, 9, 11, 10, 14, 15, 12, 13, 16, 17, 23, 22, 19, 18, 21, 20, 24, 25, 26, 27, 29, 28, 30, 31, 32, 33, 35, 34, 38, 39, 36, 37, 40, 41, 47, 46, 43, 42, 45, 44, 54, 55, 56, 57, 59, 58, 48, 49, 50, 51, 53, 52, 60, 61, 62, 63, 65, 64, 67, 66, 71, 70, 68, 69
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
其他身份。对于所有n>=0:
|
|
MAPLE公司
|
A060126号(n) =PermRank3R(PermRevLexUnrank(n));
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 2, 5, 4, 3, 6, 7, 14, 23, 22, 15, 12, 19, 8, 11, 16, 21, 18, 13, 20, 17, 10, 9, 24, 25, 26, 29, 28, 27, 54, 55, 86, 119, 118, 87, 84, 115, 56, 59, 88, 117, 114, 85, 116, 89, 58, 57, 48, 49, 74, 101, 100, 75, 30, 31, 38, 47, 46, 39, 60, 67, 80, 107, 112, 93, 66, 61, 92
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
PermRank3Aux是对Myrvold-Ruskey文章中提出的rank2算法的轻微修改。
|
|
链接
|
|
|
MAPLE公司
|
与(组);permul:=(a,b)->mulperms(b,a);交换:=(p,i,j)->转换(permul(convert(p,'disjcyc'),[[i,j]]),'permlist',nops(p));
PermRank3Aux:=proc(n,p,q),如果(1=n),则返回(0);否则返回((n-p[n])*((n-1)!)+PermRank3Aux(n-1,交换(p,n,q[n]),交换(q,n,p[n];fi;结束;
PermRank3R:=p->PermRank 3Aux(nops(p),p,convert(invperm(convert,“disjcyc”)),“permlist”,nops(p));
PermRank3L:=p->PermRank3Aux(nops(p),convert(invperm(convert(p,'disjcyc')),'permlist',nops(p)),p);
#a(n)=PermRank3L(PermUnrank3R(n))或PermRank3R(PermUnrank3L(n))或PermRank3L(convert(invperm(convert(PermUnrank3L(j),'disjcyc')),'permlist',nops(PermUnrank3L(j))))
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 4, 18, 8, 12, 8, 150, 100, 54, 16, 24, 16, 90, 40, 54, 16, 36, 16, 60, 40, 36, 16, 24, 16, 1470, 980, 882, 392, 588, 392, 750, 500, 162, 32, 48, 32, 270, 80, 162, 32, 108, 32, 120, 80, 72, 32, 48, 32, 1050, 700, 378, 112, 168, 112, 750, 500, 162, 32, 48, 32, 450, 200, 162, 32, 72, 32, 300, 200, 108, 32, 48, 32, 630, 280, 378, 112, 252, 112, 450,200
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,1
|
|
评论
|
在这种情况下,“循环多项式”是单变量多项式,其中系数(用n的素因式分解指数编码)等于表中指数n所列排列中的循环长度A060117号或A060118号。请参阅示例。
|
|
链接
|
|
|
配方奶粉
|
其他身份:
|
|
例子
|
1[只有第一个1-循环明确列出,因此a(0)=2^1=2]
2,1[开始时一个换位(2周期),因此a(1)=2^2=4]
1,3,2[开头是一个固定元素,然后是换位,因此a(2)=2^1*3^2=18]
3,1,2[一个3循环,因此a(3)=2^3=8]
3,2,1[一个跨固定元素的换位,a(4)=2^2*3^1=12]
2,3,1[一个3循环,因此a(5)=2^3=8]
1,2,4,3[两个1-循环,然后是2-循环,因此a(6)=2^1*3^1*5^2=150]。
2,1,4,3[两个2循环,未交叉,因此a(7)=2^2*5^2=100]
3,4,1,2[两个2循环交叉,因此a(16)=2^2*3^2=36]。
|
|
黄体脂酮素
|
(方案)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 2, 3, 5, 4, 6, 7, 8, 9, 11, 10, 14, 15, 12, 13, 16, 17, 21, 20, 23, 22, 19, 18, 24, 25, 26, 27, 29, 28, 30, 31, 32, 33, 35, 34, 38, 39, 36, 37, 40, 41, 45, 44, 47, 46, 43, 42, 54, 55, 56, 57, 59, 58, 48, 49, 50, 51, 53, 52, 60, 61, 62, 63, 65, 64, 67, 66, 70, 71, 69, 68
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
作为其他排列的组合:
所有n>=0的其他恒等式:
|
|
MAPLE公司
|
A060119号(n) =PermRevLexRank(PermUnrank3R(n));
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 2, 3, 2, 3, 2, 2, 3, 4, 3, 4, 2, 3, 3, 4, 2, 4, 2, 3, 2, 4, 3, 4, 2, 2, 2, 6, 2, 6, 3, 6, 4, 5, 4, 5, 3, 4, 4, 5, 6, 5, 3, 4, 6, 5, 4, 5, 2, 2, 3, 4, 3, 4, 3, 6, 4, 5, 4, 5, 2, 6, 4, 5, 6, 5, 2, 6, 6, 5, 4, 5, 2, 3, 3, 4, 2, 4, 2, 6, 4, 5, 6, 5, 3, 4, 4, 5, 6, 5, 2, 4, 6, 5, 6, 5, 2, 3, 2, 4, 3, 4, 2, 6, 6, 5, 4, 5, 2, 4, 6, 5, 6, 5, 3, 4, 6, 5, 4, 5, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
(结束)
|
|
黄体脂酮素
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 11, 120, 222, 201, 111, 1300, 1313, 2330, 3333, 3302, 2312, 2020, 3023, 1120, 1223, 2222, 3122, 3001, 2011, 3131, 2231, 1201, 1111, 14000, 14014, 14140, 14244, 14203, 14113, 24400, 24414, 34440, 44444, 44403, 34413, 34030, 44034, 24130
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
评论
|
对于n>=3628800,此序列没有明确定义,因为站点交换符号可以包含超过9的值,例如,(3628800)的站点交换符号是[0,0,0,0,0,0,10]-肖恩·欧文,2022年11月25日
|
|
链接
|
|
|
配方奶粉
|
a(n)=站点Swap3ToDec(Perm2SiteSwap1(PermUnrank3R(n)))。
|
|
MAPLE公司
|
SiteSwap3ToDec:=进程本地i,z,n;n:=nops(s);z:=0;对于i从n乘-1到1做z:=10*z;如果(s[i]>0),则z:=z+(n-s[i]);fi;od;返回(z);结束;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 2, 2, 3, 2, 3, 2, 4, 3, 4, 3, 4, 2, 3, 3, 4, 4, 4, 2, 3, 4, 4, 3, 4, 2, 4, 4, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 4, 4, 5, 5, 5, 3, 4, 5, 5, 4, 5, 2, 4, 3, 4, 3, 4, 3, 5, 4, 5, 4, 5, 4, 5, 4, 5, 5, 5, 4, 5, 5, 5, 4, 5, 2, 3, 3, 4, 4, 4, 4, 5, 4, 5, 5, 5, 3, 4, 4, 5, 5, 5, 4, 4, 5, 5, 5, 5, 2, 3, 4, 4, 3, 4, 4, 5, 5, 5, 4, 5, 4, 4, 5, 5, 5, 5, 3, 4, 5, 5, 4, 5, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,2
|
|
链接
|
|
|
配方奶粉
|
其他身份。对于所有n>=0:
(结束)
|
|
黄体脂酮素
|
(方案,两个版本)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.032秒内完成
|