显示找到的4个结果中的1-4个。
第页1
1, 2, 3, 4, 7, 7, 15, 16, 27, 30, 56, 56, 100, 105, 157, 188, 287, 303, 470, 524, 724, 850, 1197, 1339, 1856, 2135, 2814, 3305, 4360, 4951, 6532, 7561, 9563, 11195, 14165, 16328, 20631, 23866, 29471, 34320, 42336, 48672, 59872, 69139, 83625, 96911, 117153
评论
一个多集m,其不同元素为m_1、m_2、…、。。。,m_k,重数y_1、y_2、…、。。。,如果m的大小为1或gcd(m_1,…,m_k)=1,并且多集{y_1,..,y_k}也是可约的,那么y_k是可约的。
例子
a(6)=7个可约整数分区是(6)、(51)、(411)、(321),(3111)、(21111)和(111111)。此列表中缺少的是(42)、(33)、(222)和(2211)。
数学
ptnredQ[y_]:=或[Length[y]==1,和[GCD@@y==1、ptnredQ[Sort[Length/@Split[y],Greater]]];
表[Length[Select[Integer Partitions[n],ptnredQ]],{n,20}]
交叉参考
囊性纤维变性。A007916号,A071625美元,A181819号,A182850型,A182857号,A275870型,A304465型,A304660型,A304687型,A304818型,A305564型,A305565,A305566型.
具有最小公共倍数n的相对素数正整数>1的有限集的数目。
+10 12
0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 10, 0, 2, 2, 0, 0, 10, 0, 10, 2, 2, 0, 44, 0, 2, 0, 10, 0, 84, 0, 0, 2, 2, 2, 122, 0, 2, 2, 44, 0, 84, 0, 10, 10, 2, 0, 184, 0, 10, 2, 10, 0, 44, 2, 44, 2, 2, 0, 1590, 0, 2, 10, 0, 2, 84, 0, 10, 2, 84, 0, 1156, 0, 2, 10, 10, 2
评论
a(n)只依赖于n的素数签名。
如果n=p^k*q,其中p和q是不同的素数,k>=1,则a(n)=3*4^(k-1)-2^(k-1)-罗伯特·伊斯雷尔,2018年6月7日
例子
a(12)=10组:
{3,4},
{2,3,4}, {2,3,12}, {3,4,6}, {3,4,12},
{2,3,4,6}, {2,3,4,12}, {2,3,6,12}, {3,4,6,12},
{2,3,4,6,12}.
MAPLE公司
f: =进程(n)g(排序(映射(t->t[2],ifactors(n)[2]))结束进程:
f(1):=0:
g: =proc(L)选项记忆;
本地nL、Cands、nC、Cons、i;
nL:=nops(L);
坎迪斯:=[[]];
对于i从1到nL do
Cands:=[seq(seq([op(s),t],t=0..L[i]),s=Cands)];
日期:
Cands:=移除(t->max(t)=0,Cands);
nC:=nops(Cands);
Cons:=[seq(选择(t->Cands[t][i]=0,{$1..nC}),i=1..nL),
seq(选择(t->Cands[t][i]=L[i],{$1..nC}),i=1..nL)];
h(Cons,{$1..nC})
结束进程:
h: =进程(Cons,Cands)
本地t,i,Consi,Candsi;
如果Cons=[],则返回2^nops(Cands)fi;
t: =0;
对于i从1到nops(Cons[1])do
Consi:=map(proc(t)if member(Cons[1][i],t)then NULL else t减去Cons[1][1..i-1]fi结束proc,Cons[2..-1]);
如果成员({},Consi),则为下一个fi;
Candsi:=Cands减去Cons[1][1..i];
t: =t+程序名(Consi,Candsi)
od;
t吨
结束进程:
数学
表[Length[Select[Subsets[Rest[Divisors[n]]],And[GCD@#==1,LCM@@#==n]&]],{n,100}]
交叉参考
囊性纤维变性。A000961号,A006881号,A076078号,A181819号,A281116号,A285572型,A290103型,A304818型,A305563型,A305564型,A305565,A305567型.
具有最小公共倍数n的相对素数正整数的有限集的个数。
+10 4
1, 1, 1, 2, 1, 7, 1, 4, 2, 7, 1, 32, 1, 7, 7, 8, 1, 32, 1, 32, 7, 7, 1, 136, 2, 7, 4, 32, 1, 193, 1, 16, 7, 7, 7, 322, 1, 7, 7, 136, 1, 193, 1, 32, 32, 7, 1, 560, 2, 32, 7, 32, 1, 136, 7, 136, 7, 7, 1, 3464, 1, 7, 32, 32, 7, 193, 1, 32, 7, 193, 1, 2852, 1, 7
例子
a(6)=7集合是{1,6},{2,3},}1,2,3},{1,2,6}、{1,3,6}和{2,3,6{。
数学
表[Length[Select[Rest[Subsets[Divisors[n]],And[GCD@@#==1,LCM@@#=n]&],{n,100}]
交叉参考
囊性纤维变性。A001055号,A071625美元,A076078号,A181819号,A275870型,A281116号,A285573型,A285572型,A290103型,A304818型,A305563型,A305565,A305566型,A305567型.
不规则三角形,其中T(n,k)是具有最小公约数n和最大公约数k的有限个正整数集的数目,其中k遍历n的所有除数。
+10 三
1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 7, 1, 1, 1, 1, 1, 4, 2, 1, 1, 2, 1, 1, 7, 1, 1, 1, 1, 1, 32, 7, 2, 1, 1, 1, 1, 1, 7, 1, 1, 1, 7, 1, 1, 1, 8, 4, 2, 1, 1, 1, 1, 32, 2, 7, 1, 1, 1, 1, 1, 32, 7, 1, 2, 1, 1, 7, 1, 1, 1, 7, 1, 1, 1, 1, 1, 136, 32, 4, 7, 2, 1, 1, 1, 2
例子
三角形开始:
1
1 1
1 1
2 1 1
1 1
7 1 1 1
1 1
4 2 1 1
2 1 1
7 1 1 1
1 1
32 7 2 1 1 1
1 1
7 1 1 1
7 1 1 1
8 4 2 1 1
1 1
32 2 7 1 1 1
1 1
32 7 1 2 1 1
数学
表[Length[Select[Subset[Divisors[n]],And[GCD@@#==k,LCM@@#=n]&]],{n,30},{k,Divisors[n]}]
搜索在0.006秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月23日06:50。包含376143个序列。(在oeis4上运行。)
|