登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A285573型 n的两两不可分因子的有限非空集的个数。 49
1, 2, 2, 3, 2, 5, 2, 4, 3, 5, 2, 9, 2, 5, 5, 5, 2, 9, 2, 9, 5, 5, 2, 14, 3, 5, 4, 9, 2, 19, 2, 6, 5, 5, 5, 19, 2, 5, 5, 14, 2, 19, 2, 9, 9, 5, 2, 20, 3, 9, 5, 9, 2, 14, 5, 14, 5, 5, 2, 49, 2, 5, 9, 7, 5, 19, 2, 9, 5, 19, 2, 34, 2, 5, 9, 9, 5, 19, 2, 20, 5, 5, 2, 49, 5, 5, 5, 14, 2, 49, 5, 9, 5, 5, 5, 27, 2, 9, 9, 19 (列表图表参考历史文本内部格式)
抵消
1,2
评论
发件人罗伯特·伊斯雷尔2017年4月21日:(开始)
如果素数p的n=p^k,则a(n)=k+1。
如果n=p^j*q^k,对于不同素数p,q,a(n)=二项式(j+k+2,j+1)-1。(结束)
链接
例子
a(12)=9集合是:{1}、{2}、}3}、[4]、{6}、[12]、{2,3},{4,6}。
MAPLE公司
g: =程序(S)局部x,Sx;选项记忆;
如果nops(S)=0,则返回{{}}-fi;
x: =S[1];
Sx:=底土(1=NULL,S);
procname(Sx)联合映射(t->t联合{x},procname)(移除(s->s mod x=0或x mod s=0,Sx))
结束进程:
f: =程序(n)局部f,D;
F: =系数(n)[2];
D: =数论:-除数(mul(ithprime(i)^F[i,2],i=1..nops(F));
nops(g(D))-1;
结束进程:
地图(f,[1..100]美元)#罗伯特·伊斯雷尔2017年4月21日
数学
nn=50;
stableSets[u_,Q_]:=如果[Length[u]===0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets-[DeleteCases[u、r_/;r==w|Q[r,w]|Q[w,r]];
表[Length[Rest[stableSets[Divisors[n],Divisible]],{n,1,nn}]
交叉参考
关键词
非n
作者
古斯·怀斯曼2017年4月21日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月19日08:20。包含371782个序列。(在oeis4上运行。)