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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a093705-编号:a093705
显示找到的8个结果中的1-8个。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A333617飞机 可被所有除数的位数之和整除的数字(A034690号). +10
7
1, 15, 52, 444, 495, 688, 810, 1782, 1891, 1950, 2028, 2058, 2295, 2970, 3007, 3312, 3510, 4092, 4284, 4681, 4687, 4824, 4992, 5143, 5307, 5356, 5487, 5742, 5775, 5829, 6724, 6750, 6900, 6913, 6972, 7141, 7471, 7560, 7650, 7722, 7783, 7807, 8280, 8325, 8700, 8721 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
评论
相应的商k/A034690美元(k) ,是1,1,2,6,5,8,6,9,61。。。
链接
例子
15是一个项,因为它的除数是{1,3,5,15},它们的数字和是1+3+5+(1+5)=15,这是15的除数。
数学
divDigSum[n_]:=除数和[n,Plus@@IntegerDigits[#]&];选择[Range[10^4],Divisible[#,divDigSum[#]]&]
黄体脂酮素
(PARI)isok(k)=k%sumdiv(k,d,sumdigits(d))==0\\米歇尔·马库斯2020年3月30日
(Python)
从sympy导入除数
def-sd(n):返回和(map(int,str(n)))
def ok(n):返回n%sum(sd(d)for d in divisors(n))==0
def aupto(limit):返回[m代表范围(1,limit+1)中的m,如果正常(m)]
打印(aupto(8721))#迈克尔·布拉尼基2021年1月15日
交叉参考
关键词
非n,基础
作者
状态
经核准的
A333619飞机 所有除数的Zeckendorf表示中可被1的总数整除的数(A300837型). +10
5
1, 2, 4, 10, 15, 18, 20, 25, 44, 55, 56, 63, 70, 78, 80, 96, 108, 126, 128, 190, 275, 324, 338, 341, 416, 442, 451, 484, 494, 517, 520, 550, 637, 682, 720, 726, 736, 760, 780, 781, 803, 816, 845, 946, 990, 1088, 1111, 1113, 1199, 1235, 1239, 1311, 1426, 1441 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
例子
4是一个术语,因为它的除数是{1,2,4},它们的Zeckendorf表示(A014417号)是{1,10,101},它们的数字和是1+(1+0)+(1+0+1)=4,这是4的除数。
数学
zeckDigSum[n_]:=长度[DeleteCases[NestWhileList[#-Fibonachi[Floor[Log[Sqrt[5]*#+3/2]/Log[GoldenRatio]]&,n,#>1&],0]];
zeckDivDigSum[n_]:=除数总和[n,zeckDigSum[#]&];
选择[范围[10^3],可除数[#,zeckDivDigSum[#]]&]
交叉参考
关键词
非n,基础
作者
状态
经核准的
A333620型 在所有除数的对偶Zeckendorf表示中可被1的总数整除的数(A333618飞机). +10
4
1, 2, 3, 4, 12, 28, 33, 68, 104, 126, 130, 143, 147, 220, 231, 248, 297, 336, 390, 391, 408, 416, 429, 442, 518, 575, 741, 752, 779, 812, 825, 1161, 1170, 1197, 1295, 1323, 1364, 1440, 1462, 1566, 1652, 1677, 1680, 1692, 1701, 1720, 1806, 1817, 1872, 1909, 2210 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
例子
4是一个术语,因为它的除数是{1,2,4},这是它们的双重Zeckendorf表示(A104326号)是{1,10,101},它们的数字和是1+(1+0)+(1+0+1)=4,这是4的除数。
数学
fibTerms[n_]:=模块[{k=天花板[Log[GoldenRatio,n*Sqrt[5]],t=n,fr={}},While[k>1,If[t>=斐波那契[k],AppendTo[fr,1];t=t-斐波纳契[k],附录[fr,0]];k--];fr];
dualZeckSum[n_]:=模块[{v=fibTerms[n]},nv=长度[v];i=1;当[i<=nv-2时,如果[v[i]]==1&v[i+1]]==0&&v[[i+2]]==0,v[i]=0;v[[i+1]]=1;v[[i+2]]=1;如果[i>2,i-=3]];i++];i=位置[v,_?(#>0&)];如果[i=={},0,总计[v[[i[[1,1]]-1] ]]]];
dualZeckDivDigSum[n]:=除数和[n,dualZeckSum[#]&];
选择[Range[10^3],Divisible[#,dualZeckDivDigSum[#]]&]
交叉参考
关键词
非n,基础
作者
状态
经核准的
A338514型 数字k,使得k和k+1都可以被其除数的总二进制权重整除(A093653号). +10
1, 2, 54, 2119, 11100, 13727, 14382, 15799, 16399, 20159, 20950, 33421, 34617, 36328, 36396, 39400, 42198, 42438, 42650, 46253, 46873, 50370, 55368, 56600, 58793, 67013, 67320, 69023, 72325, 76057, 86393, 90781, 92906, 93216, 105909, 132088, 134028, 134823, 140466 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
评论
数字k,使得k和k+1都在A093705号,或者,等价地,k可以被整除A093653号(k) k+1可以被整除A093653号(k+1)。
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
例子
1是一个术语,因为1和2都是A093705号.
数学
divQ[n_]:=可除[n,DivisorSum[n,数字计数[#,2,1]&]];q1=divQ[1];收割[Do[q2=divQ[n];如果[q1&&q2,母猪[n-1]];q1=q2,{n,2,10^5}][[2,1]]
SequencePosition[Table[If[Divisible[n,Total[DigitCount[Divisors[n],2,1]],1,0],{n,150000}],{1,1}][[All,1](*哈维·P·戴尔2022年6月14日*)
交叉参考
囊性纤维变性。A000120号,A093653号,A093705号.
关键词
非n,基础
作者
状态
经核准的
A333622飞机 数k,使k可以被阶乘基中k的所有除数的位数之和整除(A319712型). +10
2
1, 2, 3, 4, 14, 22, 24, 27, 33, 36, 52, 72, 91, 92, 100, 135, 150, 187, 221, 231, 310, 323, 448, 481, 493, 494, 589, 663, 708, 754, 816, 884, 893, 897, 946, 1080, 1155, 1159, 1178, 1200, 1357, 1462, 1475, 1518, 1530, 1536, 1550, 1702, 1710, 1836, 1972, 1978, 2231 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
例子
14是一个项,因为它的除数是{1,2,7,14},它们在阶乘基中的表示(A007623号)是{1,10,101,210},它们的数字和是1+(1+0)+(1+0+1)+(2+1+0)=7,这是14的除数。
数学
fctDigSum[n_]:=模块[{s=0,i=2,k=n},而[k>0,k=Floor[n/i!];s=s+(i-1)*k;i++];n-s];fctDivDigDum[n_]:=除数和[n,fctDigSum[#]&];选择[Range[10^3],Divisible[#,fctDivDigDum[#]]&](*afterJean-François Alcover公司A034968号*)
交叉参考
关键词
非n,基础
作者
阿米拉姆·埃尔达尔,2020年3月29日
状态
经核准的
A333623 对k进行计数,使k可以被初等基数中k的所有除数的位数之和整除(A319715型). +10
2
1, 2, 3, 4, 14, 22, 40, 64, 90, 104, 120, 160, 169, 175, 182, 220, 272, 275, 338, 360, 500, 550, 640, 646, 752, 775, 792, 858, 928, 930, 1120, 1230, 1280, 1332, 1496, 1710, 2050, 2204, 2303, 2368, 2475, 2584, 2632, 2640, 2806, 2838, 2886, 2898, 3002, 3174, 3192 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n=1..10000时的n,a(n)表
配方奶粉
14是一个术语,因为它的除数是{1,2,7,14},它们以初等基数表示(A049345号)是{1,10,101,210},它们的数字和是1+(1+0)+(1+0+1)+(2+1+0)=7,这是14的除数。
数学
最大值=5;基础=Prime@范围[最大值,1,-1];nmax=倍数@@bases-1;primDigSum[n_]:=加号@@IntegerDigits[n,混合基数[bases]];primDivDigDum[n_]:=除数和[n,primDigSum[#]&];选择[Range[nmax],Divisible[#,primDivDigDum[#]]&]
交叉参考
关键词
非n,基础
作者
状态
经核准的
A338515型 可被除数的二进制总权重整除的3个连续数的开始(A093653号). +10
2
1、348515、8612344、29638764、30625110、32039808、32130600、32481682、43664313、55318282、55503719、59671714、69254000、73152296、93470904、100366594、103640097、105026790、109038462、109212287、122519464、126667271、147208982、162007166、169237545、173392238 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
阿米拉姆·埃尔达尔,n,a(n)表,n=1..5000
例子
1是一个术语,因为1、2和3是A093705号.
数学
divQ[n_]:=可除[n,DivisorSum[n,数字计数[#,2,1]&]];div=divQ/@范围[3];收割[Do[If[And@@div,Sow[k-3]];div=连接[Rest[div],{divQ[k]}],{k,4,10^7}]][2,1]]
交叉参考
的后续A338514型.
囊性纤维变性。A000120号,A093653号,A093705号.
关键词
非n,基础
作者
状态
经核准的
A338516型 可被其除数的二进制总权重整除的4个连续数字的开始运行(A093653号). +10
0
1377595575, 4275143301, 13616091683, 13640596128, 15016388244, 15176619135, 21361749754, 23605084359, 24794290167, 28025464183, 29639590888, 30739547718, 33924433023, 35259630279, 38008366692, 38670247670, 38681191672, 40210059079, 40507412213, 49759198333, 52555068607 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,1
评论
5个连续的数字能被它们的除数的二进制总重量整除吗?如果它们存在,则它们大于10^11。
链接
例子
1377595575是一个术语,因为从137759557到13775955578的4个连续数字都是A093705号.
数学
divQ[n_]:=可除[n,DivisorSum[n,数字计数[#,2,1]&]];div=divQ/@范围[4];收割[Do[If[And@@div,Sow[k-4]];div=连接[Rest[div],{divQ[k]}],{k,5,5*10^9}]][2,1]]
SequencePosition[Table[If[Mod[n,Total[Flatten[Integer Digits[#,2]和/@Divisors[n]]]==0,1,0],{n,526*10^8}],{1,1,1}][[;;,1]](*程序将需要很长时间才能运行。*)(*哈维·P·戴尔2023年5月28日*)
交叉参考
囊性纤维变性。A000120号,A093653号,A093705号.
关键词
非n,基础
作者
状态
经核准的
第页1

搜索在0.008秒内完成

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

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

上次修改时间:美国东部夏令时2024年4月15日05:10。包含371667个序列。(在oeis4上运行。)