|
| |
|
| A049101号 |
| 将m除以（m的数字乘积）*（m的位数之和）。 |
|
10
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 15, 18, 24, 45, 48, 135, 144, 288, 378, 476, 756, 864, 1575, 39366, 69984, 139968
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
序列是有限的，并且在10^84以上有界，因为如果10^k<=n<10^（k+1）（n的位数乘积）*（n的位总和）<=k*9^（k+2），对于k>=84，它小于10^k-亨利·博托姆利2000年5月18日
如果只对非零数字执行数字乘积，那么1088也在序列中-乔瓦尼·雷斯塔，2013年3月22日
|
|
|
链接
|
|
|
|
例子
|
139968是在序列中，因为它除以（1*3*9*9*6*8）*（1+3+9+9+6+8）-乔瓦尼·雷斯塔2013年3月20日
|
|
|
数学
|
okQ[n_]：=模块[{idn=IntegerDigits[n]}！成员Q[idn，0]&&Divisible[（总计[idn]*次@@idn），n]](*哈维·P·戴尔2011年7月16日*）
（*完整序列*）dig[nD_]：=块[{ric，sol={}，check}，检查[mu_，minN_]：=Block[{di=数字计数@minN，k=1，r}，While[（r=mu/k）>=minN，If[IntegerQ[r]&DigitCount[r]==di，AppendTo[sol，r]]；k++]]；ric[n_，prod_，sum_，lastd_，cnt_]：=块[{t}，如果[cnt==nD，检查[prod*sum，n]，Do[t=nD-cnt-1；如果[n*10^（t+1）<=d*prod*9^t*（sum+d+9*t），ric[10*n+d，d*prod，d+sum，d，cnt+1]，Break[]]，{d，9，lastd，-1}]]；里克[0,1,0,1,0]；打印[“nDig=”，nD，“sol=”，sol=排序@sol]; 溶胶]；压扁[dig/@范围[84]](*乔瓦尼·雷斯塔2013年3月20日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础,完成,满的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
