登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A046346号 可被素数因子之和整除的复合数(以重数计算)。 24
4, 16, 27, 30, 60, 70, 72, 84, 105, 150, 180, 220, 231, 240, 256, 286, 288, 308, 378, 440, 450, 476, 528, 540, 560, 576, 588, 594, 624, 627, 646, 648, 650, 728, 800, 805, 840, 884, 897, 900, 945, 960, 1008, 1040, 1056, 1080, 1100, 1122, 1134, 1160, 1170, 1248 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
如果m在序列中,并且d|m,那么m^d也是一个项。注意,对于k>0,这个序列包含形式为p^(p^k)的所有无限子序列,其中p是素数-阿米拉姆·埃尔达尔托马斯·奥多夫斯基2019年2月6日
如果选择某个复合k,k>=8,并将(k-sopfr(k))分解为一个只包含质数部分的加法分区,那么当这些部分作为k的乘积时,就会产生这个序列的元素-克里斯托弗·霍尔2019年7月30日
链接
弗朗索瓦·胡佩,n=1..50000时的n,a(n)表(T.D.Noe的条款1..1000)
K.Alladi和P.Erdõs,关于一个加法算术函数《太平洋数学杂志》。,第71卷,第2期(1977年),275-294。参见第287页的“特殊数字”。
例子
a(38)=884=2*2*13*17->2+2+13+17=34,因此884/34=26。
MAPLE公司
isA046346:=进程(n)
如果是素数(n),则
假;
elif模型(n,A001414号(n) )=0,则
真;
其他的
假;
结束条件:;
结束进程:
n从2到1000 do
如果是A046346(n),则
printf(“%d,”,n);
结束条件:;
结束do:#R.J.马塔尔2016年1月12日
数学
选择[范围[21170]!PrimeQ[#]和&IntegerQ[#/Total[Times@@FactorInteger[#]]&](*贾扬达·巴苏2013年6月2日*)
黄体脂酮素
(PARI)sopfr(n)={my(f=因子(n));和(k=1,#f~,f[k,1]*f[k、2]);}
lista(nn)=复合(n=2,nn,如果(!(n%sopfr(n)),打印1(n,“,”));)\\米歇尔·马库斯2016年1月6日
(MATLAB)m=1;对于u=2:1200,如果且(i素数(u)==0,则mod(u,和(因子(u)))==0);溶胶(m)=u;m=m+1;结束;结束;溶胶%马吕斯·A·伯蒂2019年7月31日
(Magma)[2..1200中的k:k |不是IsPrime(k)和k mod(分解(k)]中的&+[m[1]*m[2]:m)eq 0]//马吕斯·A·伯蒂2019年7月31日
(Python)
来自症状输入因子
定义正常(n):
f=因子(n)
返回和(f[p]对于f中的p)>1且n%和(p*f[p]针对f中的p)==0
打印(列表(过滤器(正常,范围(1250)))#迈克尔·布拉尼基2021年4月16日
交叉参考
包含A071142号.
关键字
非n
作者
扩展
描述由Robert A.Stump(bee_ess107(AT)yahoo.com)更正,2002年1月9日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月20日22:01。包含373532个序列。(在oeis4上运行。)