|
| |
|
| A323253型 |
| a（n）是最小的数字k，使得从k开始的n个连续整数的因式分解具有与无重数计数的素数相同的多素数(A046660号). |
|
三
|
| |
|
|
|
抵消
|
1,4
|
|
|
评论
|
最小的数k，使得从k开始的n个或更多连续整数具有相同数量的适当素数幂因子。
|
|
|
链接
|
|
|
|
例子
|
671346 = 2 * 3^2 * 13 * 19 * 151,
671347 = 17^2 * 23 * 101,
671348 = 2^2 * 47 * 3571,
671349 = 3 * 7^2 * 4567,
671350 = 2 * 5^2 * 29 * 463,
671351 = 53^2 * 239.
这是前6个连续的数字，具有相同数量的适当素数幂因子，因此a（6）=671346。
|
|
|
数学
|
Do[find=0；k=0；While[find==0，k++；If[Length[Union[Table[PrimeOmega[j]-PrimeNu[j]，{j，k，k+n-1}]]==1，find=1；打印[k]]，{n，1，5}](*瓦茨拉夫·科特索维奇2019年9月1日*）
（*更快的程序*）fak=表[f=FactorInteger[j]；总[Transpose[f][[2]]]-长度[f]，{j，1，10000000}]；m=最大值[fak]；表[Min[Table[SequencePosition[fak，ConstantArray[j，n]]，{j，0，m}]，{n，1，7}](*瓦茨拉夫·科特索维奇2019年9月1日*）
|
|
|
黄体脂酮素
|
（PARI）
过剩（n）=大ω（n）-Ω（n）；
得分（n）=my（t=超额（n））；对于（k=1，oo，if（过量（n+k）！=t、 返回（k））；
小于等于（nn）=我的（n=1）；对于（k=1，nn，而（分数（k）>=n，打印1（k，“，”）；n++））\\丹尼尔·苏图2019年9月1日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
