|
| |
|
| A282782型 |
| 等于数字幂乘积的数字，其中从左到右的指数减为1，单位数字的指数为1。 |
|
0
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1715
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
最多10^9没有其他数字符合规则。
|
|
|
链接
|
|
|
|
例子
|
1 = 1^1, 2 = 2^1, ..., 1715 = (1^4)*(7^3)*(1^2)*(5^1).
这些数字与规则不匹配：
46: (4^2)*(6^1) = 96 <> 46.
234: (2^3)*(3^2)*(4^1) = 288 <> 234.
4342: (4^4)*(3^3)*(4^2)*(2^1) = 221184 <> 4342.
46914: (4^5)*(6^4)*(9^3)*(1^2)*(4^1) = 3869835264 <> 46914.
|
|
|
数学
|
mx=10^50；test[n_]：=n==Times@@（IntegerDigits[n]^Reverse[Range@IntegerLength@n]）；Reap联盟[做[n=2^i 3^j 7^k；如果[测试@n, 母猪@n]，{i，0，对数2[mx]}，{j，0，Log[3，mx/2^i]}、{k，0，Log[7，mx/2 ^i/3^j]}]；Do[n=5 3^j 7^k；如果[测试@n, 母猪@n]，{j，0，日志[3，mx/5]}，{k，0，Log[7，mx/5/3^j]}][[2，1]]（*最多搜索10^50，乔瓦尼·雷斯塔2017年2月22日*）
选择[Range[0，2000]，Times@@MapIndexed[#1^First[#2]&，Reverse@IntegerDigits@#]=#&](*迈克尔·德弗利格2017年2月22日*）
|
|
|
黄体脂酮素
|
（VBA）'例如，对于5位数：
Dim zahl作为字符串
i=10000至99999
zahl=i
如果i=CInt（左（zahl，1））^5*CInt（右（左（zahl，2），1）
消息框（i）
End If（结束条件）
接下来i
（PARI）是（n）=我的（d=数字（n））；prod（i=1，#d，d[#d+1-i]^i）==n||！n个\\查尔斯·格里特豪斯四世2017年2月22日
（PARI）列表（lim）=我的（v=列表（[0]），t7，t37，t）；对于（a=0，logint（lim\1，7），t7=7^a；对于（b=0，logint（lim\t7，3），t=t37=t7*3^b；while（t<=lim，if（is（t），listput（v，t））；t≤1）；t=t37；而（t<=lim，if（is（t），listput（v，t））；t*=5））；集合（v）\\查尔斯·格里特豪斯四世2017年2月22日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
