搜索： 编号：a059707
|
| |
|
|
A059707号
|
| 如果所有数字具有相同的奇偶校验，则停止；否则，记下由偶数位形成的数字和由奇数位形成的数字，并将它们相乘；重复。 |
|
+0个
4
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 11, 2, 13, 4, 15, 6, 17, 8, 19, 20, 2, 22, 6, 24, 0, 26, 4, 28, 8, 0, 31, 6, 33, 2, 35, 8, 37, 24, 39, 40, 4, 42, 2, 44, 20, 46, 28, 48, 8, 0, 51, 0, 53, 20, 55, 0, 57, 40, 59, 60, 6, 62, 8, 64, 0, 66, 42, 68, 20, 0, 71, 4, 73, 28, 75, 42
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
89->8*9=72->7*2=14->1*4=4，停止，因此a（89）=4。
33278->28*337=9436->46*93=4278->42*78->2996->26*99=2574->24*57=1368->68*13=884，停止，因此a（33278）=884。
|
|
|
数学
|
f[n_]：=（id=IntegerDigits[n]；oddDigits=Select[id，OddQ]；evenDigits=Select[id，EvenQ]；Which[oddDiges=={}，FromDigits[1evenDiges]，evenDidges==}，FremDigits[oddBigits]，True，FromDigits[evenDi吉ts]*FromDiges[oddDigits]]）；a[n_]：=固定点[f，n]；表[a[n]，{n，0，76}](*Jean-François Alcover公司2013年5月16日*）
sp[n_]：=模块[{idn=整数位数[n]，e，o}，e=选择[idn，EvenQ]；o=选择[idn，OddQ]；如果[Min[Length[o]，Length[e]]>0，FromDigits[o]FromDigits[e]，n]]；表[FixedPoint[sp，i]，{i，0，80}](*哈维·P·戴尔，2014年6月5日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（展开器）
a059707 n=如果u==n | | v==n，则n为其他a059770（u*v），其中
（u，v）=foldl（\（x，y）d->如果是奇数d，则（10*x+d，y）其他（x，10*y+d））
（0，0）$反向$展开器
（\z->如果z==0，则无其他内容，仅$swap$divMod z 10）n
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.002秒内完成
|
