|
| |
|
| A137428号 |
| 复合除数小于其最大素因子的正整数n。 |
|
三
|
|
|
|
20, 28, 40, 42, 44, 52, 56, 60, 66, 68, 76, 78, 80, 84, 88, 92, 99, 100, 102, 104, 110, 112, 114, 116, 117, 120, 124, 126, 130, 132, 136, 138, 140, 148, 152, 153, 156, 160, 164, 168, 170, 171, 172, 174, 176, 180, 184, 186, 188, 190, 196, 198, 200, 204, 207, 208
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
这个序列的基本元素是形式为s*p的元素，其中s是半素数，p是大于s的素数。A252478型这些基本术语的任何倍数也在序列中-M.F.哈斯勒2015年1月2日
|
|
|
链接
|
|
|
|
例子
|
60的正因子是1,2,3,4,5,6,10,12,15,20,30,60。除数4是一个复合数，小于素数5。所以60在这个序列中。
|
|
|
MAPLE公司
|
isA137428:=处理（n）本地dvs，p，i；dvs:=排序（convert（numtheory[divisors]（n）减去{1}，list））；对于i从1到nops（dvs），如果isprime（op（-i，dvs；断裂；fi；od：对于i从1到nops（dvs），如果op（i，dvs；fi；od：返回（false）；结束：对于从1到400的n，如果是A137428（n），则执行printf（“%d，”，n）；fi；操作：#R.J.马塔尔2008年4月21日
|
|
|
数学
|
a＝｛｝；对于[n=2，n<300，n++，If[FactorInteger[n][[-1，1]]>Min[Select[Divisors[n]！PrimeQ[#]&#>1&]]，附加到[a，n]]]；一个(*斯特凡·斯坦纳伯格2008年4月21日*）
|
|
|
黄体脂酮素
|
（PARI）是（n）=#（n=因子（n）~）>1&&n[1，#n]>=n[1,1]*如果（n[2,1]>1，n[1,1]，n[1,2]）\\M.F.哈斯勒2015年1月2日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
