|
| |
|
| A353389型 |
| 创建素数或其素数阴影大于1的所有正整数的序列(A181819号)是序列中已经存在的除数。然后去除所有底漆。 |
|
9
|
|
|
|
9, 36, 125, 225, 441, 1089, 1260, 1521, 1980, 2340, 2401, 2601, 2772, 3060, 3249, 3276, 3420, 4140, 4284, 4761, 4788, 5148, 5220, 5580, 5796, 6660, 6732, 7308, 7380, 7524, 7569, 7740, 7812, 7956, 8460, 8649, 8892, 9108, 9324, 9540, 10332, 10620, 10764, 10836
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
我们定义素数阴影A181819号（n） 是n的素数因式分解中指数所指素数的乘积。例如，90=prime（1）*prime（2）^2*prime。
换言之，这些是非素数>1，其素数阴影是一个除数，它要么是素数，要么是序列中已有的数字。
|
|
|
链接
|
|
|
|
例子
|
初始术语及其主要指数：
9: {2,2}
36: {1,1,2,2}
125: {3,3,3}
225: {2,2,3,3}
441: {2,2,4,4}
1089: {2,2,5,5}
1260: {1,1,2,2,3,4}
1521: {2,2,6,6}
1980: {1,1,2,2,3,5}
|
|
|
数学
|
red[n_]：=如果[n==1，1，Times@@Prime/@Last/@FactorInteger[n]]；
suQ[n_]：=PrimeQ[n]||可除[n，red[n]]&suQ[red[n]；
选择[Range[2，2000]，suQ[#]&&！PrimeQ[#]&]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
