显示找到的8个结果中的1-8个。
第页1
2, 3, 5, 7, 9, 21, 27, 65, 69, 70, 81, 84, 90, 110, 123, 126, 130, 133, 154, 189, 222, 228, 243, 252, 259, 264, 327, 329, 333, 340, 342, 343, 350, 365, 372, 381, 402, 434, 450, 516, 528, 580, 588, 618, 621, 650, 684, 729, 730, 731, 738, 740, 741, 756, 765, 774
评论
序列是无限的,因为对于m=9^k,k>=0,digsum(m_9)=1-马吕斯·A·伯蒂2019年7月10日
例子
21=23_9,数字和(23_9)=5,素数除数(21)={3,7},sopf(21)=3+7=10=5*2。
MAPLE公司
A076387号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod9);t1:=地板(t1/9);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
黄体脂酮素
(PARI){对于(ixp=2783,
casi=ixp;cvst=0;dsu=0;M=系数(ixp);smt=0;
对于(i=1,矩阵大小(M)[1],smt=smt+M[i,1]);
while(casi!=0,
cvd=casi%9;dsu=dsu+cvd;casi=(casi-cvd)/9);
如果(smt%dsu==0,打印1(ixp,“,”))}\\道格拉斯·拉蒂默2012年5月8日
(Magma)[n:n in[1..800]|&&+PrimeDivisors(n)mod&&+Intseq(n,9)eq 0]//马吕斯·A·伯蒂2019年7月10日
2, 4, 8, 14, 15, 16, 26, 28, 32, 33, 35, 38, 39, 42, 45, 51, 52, 56, 64, 65, 66, 74, 75, 76, 81, 84, 91, 95, 98, 104, 112, 114, 119, 126, 128, 129, 130, 132, 134, 135, 146, 148, 152, 153, 154, 161, 168, 170, 175, 194, 196, 198, 206, 208, 215, 221, 222, 224, 225
MAPLE公司
A076380型:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod2);t1:=地板(t1/2);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
数学
选择[范围[2250]、可除数[Total[FactorInteger[#][All,1]]]、总计[InterDigits[#,2]]]&](*哈维·P·戴尔,2019年1月8日*)
2, 3, 4, 9, 25, 27, 30, 42, 51, 66, 78, 81, 84, 90, 105, 114, 126, 138, 141, 147, 153, 156, 159, 168, 170, 185, 186, 187, 198, 201, 220, 222, 228, 231, 234, 243, 245, 246, 252, 258, 264, 270, 276, 282, 290, 291, 294, 301, 312, 315, 322, 323, 325, 336, 340, 341
MAPLE公司
A076381号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod3);t1:=地板(t1/3);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
数学
选择[Range[2,400],Divisible[Total[FactorInteger[#][[All,1]],Total[CintegerDigits[#,3]]&](*哈维·P·戴尔2018年7月9日*)
2, 3, 4, 8, 9, 16, 26, 32, 42, 64, 65, 78, 81, 84, 86, 92, 94, 95, 104, 114, 115, 119, 128, 130, 143, 146, 156, 161, 168, 170, 178, 186, 209, 212, 215, 228, 234, 244, 256, 258, 259, 260, 287, 294, 308, 312, 319, 322, 326, 332, 335, 336, 338, 340, 342, 343, 344
MAPLE公司
A076382号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod4);t1:=地板(t1/4);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
2, 3, 5, 21, 25, 27, 30, 35, 42, 78, 105, 110, 115, 123, 125, 126, 130, 132, 141, 150, 153, 155, 159, 161, 170, 175, 186, 187, 195, 201, 228, 230, 231, 252, 258, 260, 264, 276, 290, 301, 327, 329, 340, 357, 372, 378, 381, 395, 396, 402, 410, 411, 429, 434
MAPLE公司
A076383号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod5);t1:=地板(t1/5);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
2, 3, 5, 6, 25, 30, 36, 38, 39, 42, 60, 78, 84, 90, 106, 114, 120, 122, 126, 130, 150, 152, 156, 171, 178, 180, 183, 186, 187, 194, 198, 216, 217, 218, 219, 221, 222, 228, 230, 240, 244, 252, 255, 258, 259, 260, 262, 264, 270, 287, 294, 297, 299, 300, 303, 321
MAPLE公司
A076384美元:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod6);t1:=地板(t1/6);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
数学
选择[Range[2,350],Divisible[Total[Transpose[FactorInteger[#]][[1]]],Total[CintegerDigits[#,6]]&](*哈维·P·戴尔,2013年5月26日*)
2, 3, 5, 7, 8, 9, 42, 49, 78, 84, 105, 114, 115, 126, 130, 154, 156, 161, 168, 170, 186, 228, 235, 252, 258, 294, 305, 336, 343, 350, 357, 366, 371, 372, 378, 402, 410, 425, 429, 430, 434, 442, 444, 455, 456, 460, 474, 504, 516, 520, 555, 558, 574, 588, 616
MAPLE公司
A076385号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod7);t1:=地板(t1/7);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
2, 3, 5, 7, 8, 12, 15, 16, 26, 49, 64, 65, 70, 86, 96, 102, 123, 128, 130, 140, 150, 156, 201, 208, 209, 215, 225, 247, 258, 266, 280, 286, 299, 305, 326, 350, 356, 360, 403, 424, 456, 471, 474, 490, 495, 512, 513, 515, 519, 520, 530, 532, 545, 551, 555, 558
MAPLE公司
A076386号:=proc(n)局部i、j、t、t1、sod、sopd;t:=空;对于i从2到n,做t1:=i;超氧化物歧化酶:=0;t1<>0时,sod:=sod+(t1mod8);t1:=地板(t1/8);od;sopd:=0;j:=1;当ithprime(j)<=i do时,如果i mod ithprime;fi;j:=j+1;od;如果sopd-mod-sod=0,则t:=t,i;fi;od;t;结束;
搜索在0.006秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月21日22:57 EDT。包含376090个序列。(在oeis4上运行。)
|