|
| |
|
| A327520型 |
| 第n个稳定数的因子分解数A316476型（n） 稳定数>1。 |
|
0
|
|
|
|
1, 1, 2, 1, 1, 3, 2, 1, 1, 2, 5, 1, 1, 1, 2, 3, 1, 1, 7, 2, 2, 1, 1, 1, 4, 1, 2, 2, 1, 2, 1, 1, 11, 1, 2, 1, 1, 4, 2, 1, 5, 1, 2, 1, 2, 2, 2, 1, 4, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 15, 1, 7, 1, 1, 2, 2, 2, 1, 1, 4, 2, 1, 2, 1, 5, 1, 2, 1, 4, 2, 1, 1, 2, 1, 1, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
n的素数指数是一个数m，使得素数（m）除以n。n的多素数指数集是A112798号.如果一个数的不同素数指数是两两不可分的，则该数是稳定的。稳定的数字列在A316476型.
|
|
|
链接
|
|
|
|
例子
|
将45的a（26）=4分解为稳定数：
(3*3*5)
(3*15)
(5*9)
（45）
将495个素数指数的a（201）=11个多集划分为稳定多集：
{{2},{2},{3},{5}}
{{2},{2},{3,5}}
{{2},{3},{2,5}}
｛｛2｝，｛5｝，｛2，3｝｝
{{2},{2,3,5}}
{{3},{2,2},{5}}
{{3},{2,2,5}}
{{2,2},{3,5}}
｛｛5｝，｛2，2，3｝｝
{{2,3},{2,5}}
{{2,2,3,5}}
|
|
|
数学
|
nn=100；
facsusing[s_，n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[facsusing[Select[s，Divisible[n/d，#]&]，n/d]，Min@@#>=d&]]，{d，Select[s，Diviible[n，#]&]}]]；
稳定Q[u_，Q_]：=！应用[Or，Outer[#1=！=#2&&Q[#1，#2]&，u，u，1]，｛0，1｝]；
y=选择[Range[nn]，stableQ[PrimePi/@First/@FactorInteger[#]，Divisible]&]；
表[Length[facsusing[Rest[y]，n]]，{n，y}]
|
|
|
交叉参考
|
有关其他交互参考，请参见链接。
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
