|
|
A325793型 |
| 除数等于素数指数之和的正整数。 |
|
13
|
|
|
3, 10, 28, 66, 70, 88, 208, 228, 306, 340, 364, 490, 495, 525, 544, 550, 675, 744, 870, 966, 1160, 1216, 1242, 1254, 1288, 1326, 1330, 1332, 1672, 1768, 1785, 1870, 2002, 2064, 2145, 2295, 2457, 2900, 2944, 3250, 3280, 3430, 3468, 3540, 3724, 4125, 4144, 4248
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
项70在序列中是因为它有8个除数{1,2,5,7,10,14,35,70},并且它的素数指数之和也是1+3+4=8。
术语序列及其基本指数开始于:
3:{2}
10: {1,3}
28: {1,1,4}
66: {1,2,5}
70: {1,3,4}
88: {1,1,1,5}
208: {1,1,1,1,6}
228: {1,1,2,8}
306: {1,2,2,7}
340: {1,1,3,7}
364: {1,1,4,6}
490: {1,3,4,4}
495:{2,2,3,5}
525:{2,3,3,4}
544:{1,1,1,1,7}
550: {1,3,3,5}
675: {2,2,2,3,3}
744: {1,1,1,2,11}
870: {1,2,3,10}
966: {1,2,4,9}
|
|
MAPLE公司
|
过滤器:=proc(n)局部F,t;
F: =系数(n)[2];
加法(数字理论:-pi(t[1])*t[2],t=F)=mul(t[2]+1,t=F)
结束进程:
选择(过滤器,[1..10000]美元)#罗伯特·伊斯雷尔2023年10月16日
|
|
数学
|
选择[Range[100],DivisorSigma[0,#]==总数[Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]]&]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|