|
| |
| |
|
|
|
4, 22, 666, 1111, 6666666, 4444444444, 44444444444444444444, 555555555555555555555555555, 55555555555555555555555555555555, 4444444444444444444444444444444444444444444444444444444
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
数学
|
d[n_]：=整数位数[n]；tr[n_]：=转置[FactorInteger[n]]；a[n_]：=嵌套列表[FromDigits[Flatten[d[{#，n}]]&，n，55]；t={}；Do[If[！PrimeQ[n]&&Total[d[n]]==Total[d@tr[n][[1]]*tr[n][2]，2]，AppendTo[t，n]]，{n，Drop[Union[Flatten[Table[a[k]，{k，9}]]，1]}]；t吨(*贾扬达·巴苏，2013年6月4日*）
|
|
|
程序
|
（Python）
来自sympy导入因子
来自itertools导入产品
def-sd（n）：返回和（map（int，str（n）））
史密斯定义（n）：
f=因子（n）
返回和（f[p]对于f中的p）>1，sd（n）==和（sd（p）*f[p]对f中的p）
def repsto（限制）：
范围内的产量（最小（极限，9）+1）
对于范围内的rep（2,10**len（str（limit））：
对于“123456789”中的数字：
out=int（数字*代表）
如果超出>限制：返回
屈服，屈服
打印（列表（过滤器（史密斯，代表（10**32）））#迈克尔·布拉尼基2021年4月22日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
