搜索: a045778-编号:a045778
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 17, 18, 19, 21, 22, 25, 27, 31, 32, 33, 34, 38, 40, 42, 43, 44, 46, 52, 54, 55, 56, 57, 59, 61, 64, 67, 70, 74, 76, 80, 83, 88, 89, 91, 93, 100, 104, 110, 111, 112, 116, 117, 120, 122, 123, 132, 137, 140, 141, 142, 143, 148
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 4, 1, 1, 1, 5, 1, 4, 1, 4, 1, 1, 1, 7, 2, 1, 3, 4, 1, 1, 1, 7, 1, 1, 1, 9, 1, 1, 1, 7, 1, 1, 1, 4, 4, 1, 1, 12, 2, 4, 1, 4, 1, 7, 1, 7, 1, 1, 1, 11, 1, 1, 4, 11, 1, 1, 1, 4, 1, 1, 1, 16, 1, 1, 4, 4, 1, 1, 1, 12, 5, 1, 1, 11, 1, 1, 1, 7, 1, 11, 1, 4, 1, 1, 1, 19, 1, 4, 4, 9, 1, 1, 1, 7, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
n的因子分解是一个乘积为n的>1的正整数的有限、不递减序列。如果因子都不同,这是严格的。因子分解和严格因子分解的计算方法为A001055号和A045778号分别是。
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[facs[n]]/Length[Select[facs[n],UnsameQ@@#&]],{n,100}]//分子
|
|
黄体脂酮素
|
(PARI)
A001055号(n,m=n)=如果(1==n,1,my(s=0);对于div(n,d,如果(d>1)&&(d<=m),s+=A001055号(n/d,d));(s) );
|
|
交叉参考
|
囊性纤维变性。A001055号,A001222号,A002033号,A045778号,A045779号,A045780型,A045782号,A045783号,A325755型,A326028型,A326622型,A328966型,A330972型,A330977型,A330991型。
|
|
关键词
|
非n,压裂
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 1, 1, 3, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 3, 3, 1, 1, 7, 1, 3, 1, 3, 1, 5, 1, 5, 1, 1, 1, 9, 1, 1, 3, 4, 1, 1, 1, 3, 1, 1, 1, 9, 1, 1, 3, 3, 1, 1, 1, 7, 2, 1, 1, 9, 1, 1, 1, 5, 1, 9, 1, 3, 1, 1, 1, 10, 1, 3, 3, 5, 1, 1, 1, 5, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,8
|
|
评论
|
n的因子分解是一个乘积为n的>1的正整数的有限、不递减序列。如果因子都不同,这是严格的。因子分解和严格因子分解的计算方法为A001055号和A045778号分别是。
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[facs[n]]/Length[Select[facs[n],UnsameQ@@#&]],{n,100}]//分母
|
|
黄体脂酮素
|
(PARI)
A001055号(n,m=n)=如果(1==n,1,my(s=0);对于div(n,d,如果(d>1)&&(d<=m),s+=A001055号(n/d,d));(s) );
|
|
交叉参考
|
囊性纤维变性。A001055号,A005117号,A045778号,A045779号,A045780型,A045782号,A045783号,A325755型,A326028,A326622型,A328966型,A330972型,A330977型,A330991型。
|
|
关键词
|
非n,压裂
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
n的因式分解是一个积n为n的有限的、非递减的正整数序列。如果因子都不同,则它是严格的。
|
|
链接
|
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Round[Length[facs[n]]/Length[Select[facs[n],UnsameQ@@#&]]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A001055号,A001222号,A002033号,A005117号,A045778号,A045779号,A045780型,A045782号,A045783号,A330972型,A330977型,A330991型。
|
|
关键词
|
非n,压裂
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 2, 2, 3, 2, 5, 5, 3, 5, 7, 9, 4, 9, 10, 16, 5, 14, 18, 14, 15, 17, 25, 6, 21, 34, 19, 31, 27, 38, 8, 31, 57, 25, 59, 42, 40, 56, 10, 67, 44, 70, 46, 91, 33, 100, 64, 80, 80, 12, 117, 61, 52, 141, 74, 140, 43, 161, 93, 143, 111, 15, 193, 83, 120, 253, 116, 167, 208
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
|
|
MAPLE公司
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
128、2187、10368、34992、78125、80000、307328、823543、1250000、1366875、1874048、3655808、5250987、6328125、10690688、13176688、16681088、19487171、32019867、35819648、62462907、62748517、66706983、90531968、118210688、182660427、187578125、239892608、285012027
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
包含所有素数p的p^7。
|
|
链接
|
|
|
例子
|
2187的15个因子分解和5个严格因子分解:
(2187) (2187)
(27*81) (27*81)
(3*729) (3*729)
(9*243) (9*243)
(3*9*81) (3*9*81)
(9*9*27)
(3*27*27)
(3*3*243)
(3*9*9*9)
(3*3*3*81)
(3*3*9*27)
(3*3*3*9*9)
(3*3*3*3*27)
(3*3*3*3*3*9)
(3*3*3*3*3*3*3)
|
|
数学
|
facm[n_]:=facsm[n]=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[facsm[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
选择[Range[100000],3==Length[facsm[#]]/Length[Select[facsm[#],UnsameQ@@#&]]&]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A001055号
|
| 乘法配分函数:所有因子都大于1(a(1)=1,按惯例)的n的因式分解方法的数量。 (原名M0095 N0032)
|
|
+10 738
|
|
|
1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 5, 1, 7, 2, 2, 2, 9, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 12, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 11, 1, 2, 4, 11, 2, 5, 1, 4, 2, 5, 1, 16, 1, 2, 4, 4, 2, 5, 1, 12, 5, 2, 1, 11, 2, 2, 2, 7, 1, 11, 2, 4, 2, 2, 2, 19, 1, 4, 4, 9, 1, 5, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
评论
|
通过n的因式分解,我们指的是整数>1的多集,其乘积为n。
例如,6是2个这样的多集{2,3}和{6}的乘积,因此a(6)=2。
类似地,8是3个这样的多集{2,2,2},{2,4}和{8}的乘积,因此a(8)=3。
1是这种多集1的乘积,即空多集{},其乘积定义为乘法恒等式1。因此,a(1)=1。(结束)
因此,a(n)给出了在具有n个除数的整数中可以找到的不同素数签名的数量-米歇尔·马库斯2015年11月11日
|
|
参考文献
|
M.Abramowitz和I.A.Stegun编辑,《数学函数手册》,国家标准应用数学局。1964年第55辑(以及各种重印本),第844页。
S.R.Finch,《数学常数》,剑桥,2003年,第292-295页。
阿玛纳斯·穆尔西(Amarnath Murthy)和查尔斯·阿什巴赫(Charles Ashbacher),广义分割与数论和Smarandache序列的一些新思想,海克斯(Hexis),凤凰(Phoenix);美国2005年。参见第1.4节。
N.J.A.Sloane,《整数序列手册》,学术出版社,1973年(包括该序列)。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
G.Tenenbaum,《分析和概率数论导论》,剑桥大学出版社,1995年,第198页,练习9(2015年第三版,第296页,练习211)。
|
|
链接
|
M.Abramowitz和I.A.Stegun编辑。,数学函数手册,国家标准局,应用数学。系列55,第十次印刷,1972年[替代扫描副本]。
D.Beckwith,问题10669阿默尔。数学。《105月刊》(1998年),第559页。
马克·张伯兰(Marc Chamberland)、科林·约翰逊(Colin Johnson)、艾丽斯·纳多(Alice Nadeau)和吴炳锡(Bingxi Wu),乘法分区《组合数学电子杂志》,20(2)(2013),#P57。
S.R.Finch,卡尔马组成常数2003年6月5日。[经作者许可,缓存副本]
R.K.Guy和R.J.Nowakowski,每月未解决的问题1969-1995年,美国。数学。月刊,102(1995),921-926。
John F.Hughes和J.O.Shallit,关于乘法分割数,《美国数学月刊》90(7)(1983),468-471。
潘卡杰·乔蒂·马汉塔(Pankaj Jyoti Mahanta),关于和的乘积最多为n的n的分区数,arXiv:2010.07353[math.CO],2020年。
|
|
配方奶粉
|
Canfield、Erdős&Pomerance和Luca、Mukhopadhyay&Srinivas研究了该序列的渐近行为-乔纳森·沃斯邮报2008年7月7日
Dirichlet g.f.:产品{k>=2}1/(1-1/k^s)。
如果n=素数p的p^k,a(n)=分区(k)=A000041号(k) ●●●●。
|
|
例子
|
1:1,a(1)=1
2:2,a(2)=1
3:3,a(3)=1
4:4=2*2,a(4)=2
6:6=2*3,a(6)=2
8:8=2*4=2*2*2,a(8)=3
等。
|
|
MAPLE公司
|
带有(数字理论):
T:=进程(n::integer,m::integer)
当地A、summe、d:
如果是素数(n),则
如果n<=m,则
返回1;
结束条件:
返回0;
结束条件:
A:=除数(n)减去{n,1}:
A do中的d
如果d>m,则
A:=A减去{d}:
结束条件:
结束do:
总和:=加(T(n/d,d),d=A);
如果n<=m,则
总和:=总和+1:
结束条件:
总结;
结束进程:
|
|
数学
|
c[1,r]:=c[1],r]=1;c[n_,r_]:=c[n,r]=模块[{ds,i},ds=选择[除数[n],1<#<=r&];总和[c[n/ds[[i]],ds[[i]],{i,1,长度[ds]}]];a[n]:=c[n,n];a/@Range[100](*c[n,r]是因子<=r的n的因式分解数-迪安·希克森2002年10月28日*)
T[_,1]=T[1,_]=1;
T[n_,m_]:=T[n,m]=除数和[n,Boole[1<#<=m]*T[n/#,#]&];
a[n_]:=T[n,n];
|
|
黄体脂酮素
|
(PARI)/*因子<=m(n,m个正整数)的n的因式分解*/
fcnt(n,m)={局部(s);s=0;如果(n==1,s=1,fordiv(n,d,if(d>1&d<=m,s=s+fcnt(n/d,d)));s}
(PARI)\\基于Somos代码使用Dirichlet g.fA007896号
{a(n)=我的(a,v,w,m);
如果(
n<1,0,
\\定义长度为n的单位向量v=[1,0,0,…]
v=矢量(n,k,k==1);
对于(k=2,n,
m=数字(n,k)-1;
\\展开1/(1-x)^k足够远
A=(1-x)^-1+x*O(x^m);
\\w=长度n的零矢量
w=矢量(n);
\\将A转换为向量
对于(i=0,m,w[k^i]=polceoff(A,i));
\\构建答案
v=dirmul(v,w)
);
v【n】
)
};
\\生成序列
(PARI)v=矢量(100,k,k==1);对于(n=2,#v,v+=dirmul(v,向量(#v,k,(k>1)&&n^赋值(k,n)==k));v(v)\\马克斯·阿列克塞耶夫2014年7月16日
(哈斯克尔)
a001055=(映射最后一个a066032_tabl!!)。(减去1)
(Python)
从辛导入除数,isprime
定义T(n,m):
if isprime(n):如果n<=m,则返回1
A=滤波器(λd:d<=m,除数(n)[1:-1])
s=总和(A中d的T(n//d,d))
如果n<=m else s,则返回s+1
定义a(n):返回T(n,n)
打印([a(n)表示范围(1106)中的n)]#因德拉尼尔·戈什2017年8月19日
(Java)
公共类MultiPart{
公共静态void main(String[]argV){
对于(int i=1;i<=100;++i)System.out.println(1+getDivisors(2,i));
}
公共静态int getDivisors(int min,int n){
int total=0;
for(int i=min;i<n;++i)
如果(n%i==0&&n/i>=i){+total;如果(n/i>i)total+=getDivisors(i,n/i);}
收益总额;
}
|
|
交叉参考
|
囊性纤维变性。A002033号,A045778号,A050322号,A050336号,A064553号,A064554号,A064555号,A077565号,A051731号,A005171号,A097296号,A190938号,A216599型,216600南非兰特,A216601型,A216602型。
|
|
关键词
|
非n,容易的,美好的,核心
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 3, 8, 23, 63, 197, 588, 1892, 6140, 20734, 71472, 254090, 923900, 3446572, 13149295, 51316445, 204556612, 832467052, 3455533022, 14621598811, 63023667027, 276559371189, 1234802595648, 5606647482646, 25875459311317, 121324797470067, 577692044073205
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
此外,在行和列排列下,元素和等于n的非负整数n X n矩阵的数量,没有相等的行(或者,也没有相等的列)。
还有权重为n且没有等价顶点的非同构多集划分的数目。在多集划分中,如果每个块中第一个顶点的重数等于第二个顶点的多重数,则两个顶点是等价的。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
没有等价顶点(第一列)和没有等价块(第二列)的a(3)=8个多集分区的非同构表示:
(111) <-> (111)
(122) <-> (1)(11)
(1)(11) <-> (122)
(1)(22) <-> (1)(22)
(2)(12) <-> (2)(12)
(1)(1)(1) <-> (123)
(1)(2)(2) <-> (1)(23)
(1)(2)(3) <-> (1)(2)(3)
|
|
黄体脂酮素
|
(PARI)
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n)))-1,-#v)}
permcount(v)={my(m=1,s=0,k=0,t);对于(i=1,#v,t=v[i];k=if(i>1&&t==v[i-1],k+1,1);m*=t*k;s+=t);s!/m}
K(q,t,K)={欧拉t(Vec(总和(j=1,#q,my(g=gcd(t,q[j]));g*x^(q[j]/g))+O(x*x^K),-K))}
a(n)={如果(n==0,1,my(s=0);对于部分(q=n,my,p=sum(t=1,n,subst(x*Ser(K(q,t,n\t))/t,x,x^t)));s+=permcount(q)*polcoef(exp(p-subst\\安德鲁·霍罗伊德2023年1月21日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 2, 4, 9, 17, 36, 72, 155, 319, 677, 1429, 3094, 6648, 14518, 31796, 70491, 156818, 352371, 795952, 1813580, 4155367, 9594425, 22283566, 52122379, 122631874, 290432439, 691831161, 1658270316, 3997272089, 9692519896, 23631827354, 57943821449, 142834652193
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
在行和列置换下,元素和等于n的非负整数平方对称矩阵的数目。
对于每个顶点,多集分区的对偶有一个块,该块由包含该顶点的块的索引(或位置)组成,并以重数计算。
|
|
链接
|
|
|
例子
|
a(4)=9个自对偶多集分区的非同构表示:
(1111),
(1)(222), (2)(122), (11)(22), (12)(12),
(1)(1)(23), (1)(2)(33), (1)(3)(23),
(1)(2)(3)(4).
a(4)=9平方对称矩阵:
. [4]
。
. [3 0] [2 0] [2 1] [1 1]
. [0 1] [0 2] [1 0] [1 1]
。
. [2 0 0] [1 1 0] [0 1 1]
. [0 1 0] [1 0 0] [1 0 0]
. [0 0 1] [0 0 1] [1 0 0]
。
。[1 0 0 0]
. [0 1 0 0]
. [0 0 1 0]
. [0 0 0 1]
|
|
黄体脂酮素
|
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 2, 1, 4, 1, 1, 1, 4, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 6, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 5, 1, 2, 1, 2, 1, 2, 1, 8, 1, 1, 2, 2, 1, 2, 1, 6, 2, 1, 1, 5, 1, 1, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,8
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
n=24,48,60,72,96,120的a(n)因式分解:
24 48 60 72 96 120
2*2*6 2*3*8 2*5*6 2*4*9 2*6*8 3*5*8
2*3*4 2*4*6 3*4*5 2*6*6 3*4*8 4*5*6
3*4*4 2*2*15 3*3*8 4*4*6 2*2*30
2*2*12 2*3*10 3*4*6 2*2*24 2*3*20
2*2*2*2*3 2*2*18 2*3*16 2*4*15
2*3*12 2*4*12 2*5*12
2*2*2*3*3 2*2*2*2*6 2*6*10
2*2*2*3*4 3*4*10
2*2*2*3*5
|
|
MAPLE公司
|
g: =proc(n,k,t)选项记忆`如果`(n>k,0,t)+
`如果`(i素数(n),0,加(`如果`(d>k,0,g(n/d,d,1-t)),
d=数值[除数](n)减去{1,n}))
结束时间:
a: =n->`如果`(n<2,0,g(n$2,1)):
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Length[Select[facs[n],奇数Q@长度[#]&]],{n,100}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.177秒内完成
|