搜索： a093705-编号：a093705
|
| |
| |
|
|
|
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）：返回sum（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）]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
链接
|
|
|
|
例子
|
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[#]&]；
选择[Range[10^3]，Divisible[#，zeckDivDigSum[#]]&]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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，1011}，并且它们的数字和的和是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，dualZeck总和[#]&]；
选择[范围[10^3]，可除数[#，dualZeckDivDigSum[#]]&]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
|
|
|
数学
|
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日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
链接
|
|
|
|
例子
|
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,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
链接
|
|
|
|
配方奶粉
|
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,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
链接
|
|
|
|
例子
|
|
|
|
数学
|
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]]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
