|
|
|
|
|
|
|
|
|
#14个通过阿洛伊斯·海因茨2019年12月30日星期一15:21:19 EST |
|
|
|
|
|
|
|
#2013年通过G.C.格鲁贝尔美国东部时间2019年12月30日星期一14:53:05 |
|
|
|
|
|
讨论
|
| 12月30日周一
| 15:21
| 阿洛伊斯·海因茨：是的，谢谢！
|
|
|
|
|
|
|
#12通过米歇尔·马库斯2019年12月20日星期五00:44:02 EST |
|
|
|
|
|
|
|
#11通过米歇尔·马库斯2019年12月20日星期五00:42:35 EST |
|
|
|
|
|
|
|
#10通过斯科特·R·香农2019年12月20日星期五00:25:00 EST |
|
|
|
|
|
|
|
#9个通过斯科特·R·香农2019年12月20日星期五00:23:15 EST |
|
| 例子
|
一个(123341)自341->123->36->18->8->0起=5
|
|
|
|
|
讨论
|
| 12月20日星期五
| 00:23
| 斯科特·R·香农：添加了bfile。还修复了示例值中的类型/错误数字
|
|
|
|
|
|
|
#8通过斯科特·R·香农2019年12月20日星期五00:22:27 EST |
|
| 链接
|
Scott R.Shannon，<a href=“/A035931号/b035931.txt“>n，a（n）的表格，n=0..10000</a>。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#7通过布鲁诺·贝塞利美国东部时间2017年4月3日星期一10:58:51 |
|
|
|
|
|
|
|
#6通过让-弗朗索瓦·奥尔科弗2017年4月3日星期一10:57:39 EDT |
|
|
|
|
|
|
|
#5通过让-弗朗索瓦·奥尔科弗2017年4月3日星期一10:57:33 EDT |
|
| 数学
|
f[n_]：=如果[n<10，0，With[{d=IntegerDigits[n]}，Table[FromDigits[Take[d，k]]*FromDigets[Drop[d，k]]，{k，1，Length[d]-1}]//Max]]；
a[n_]：=如果[n==0，0，长度[FixedPointList[f，n]]-2]；
表[a[n]，{n，0，100}](*让-弗朗索瓦·奥尔科弗2017年4月3日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
