|
| |
|
| A305566型 |
| 具有最小公共倍数n的相对素数正整数>1的有限集的数目。 |
|
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
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,6
|
|
|
评论
|
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:=映射（proc（t）if成员（Cons[1][i]，t）然后为NULL else t减去Cons[1][1..i-1]fi end 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
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
