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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A076709号 将复合数分解为至少2个因子>1的因子。 1
2, 2, 2, 3, 2, 4, 2, 2, 2, 3, 3, 2, 5, 2, 6, 2, 2, 3, 3, 4, 2, 7, 3, 5, 2, 8, 2, 2, 4, 2, 2, 2, 2, 4, 4, 2, 9, 2, 3, 3, 3, 6, 2, 10, 2, 2, 5, 4, 5, 3, 7, 2, 11, 2, 12, 2, 2, 6, 2, 2, 2, 3, 2, 3, 4, 3, 8, 4, 6, 5, 5, 2, 13, 3, 9, 3, 3, 3, 2, 14, 2, 2, 7, 4, 7, 2, 15, 2, 3, 5, 3, 10, 5, 6, 2, 16, 2, 2, 8, 2 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
每个因式分解都是按非递减顺序给出的。确定两个因式分解a_1*a_2*…*中的哪一个a_r和b_1*…*b_s(同一个数)排在第一位,找到最小的索引k,这样ak!=b_k。如果k=r,则首先进行a-因子分解。如果k=s,则首先是b因子分解。否则,如果a_k<b_k,则a因子分解首先出现;如果bk<ak,首先是b分解。
链接
例子
前20项来自4、6、8、9、10和12的因子分解:4=2*2,6=2*3,8=2*4=2*2*2,9=3*3,10=2*5,12=2*6=2*2*3=3*4。
数学
mf[1,ds]:={{}};mf[n,{}]:={};mf[n_,ds_]:=mf[n,ds]=If[Mod[n,ds[[1]]==0,RotateRight[Join[Prepend[#,ds[[1]]]&/@mf[n/ds[[1],ds],Rotate Left[mf[n,Drop[ds,1]]],mf[m,Drop[ds,1],1]];mf[n_]:=mf[n,下降[Divisors[n],1]];压扁[Drop[mf[#],1]和/@Range[50]]
交叉参考
囊性纤维变性。A037025号.
关键词
非n
作者
唐纳德·麦克唐纳2002年10月26日
扩展
编辑人迪恩·希克森2002年12月6日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日21:50。包含373559个序列。(在oeis4上运行。)