|
|
|
|
#14通过阿洛伊斯·海因茨2019年12月30日星期一15:21:19 EST |
|
|
|
#13通过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表,n=0..100000时a(n)。
|
| 状态
|
经核准的
编辑
|
|
|
|
#7通过布鲁诺·贝塞利2017年4月3日星期一10:58:51 EDT |
|
|
|
#6通过Jean-François Alcover公司美国东部时间2017年4月3日星期一10:57:39 |
|
|
|
#5通过Jean-François Alcover公司美国东部时间2017年4月3日星期一10:57:33 |
| 数学
|
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}](*Jean-François Alcover公司2017年4月3日*)
|
| 状态
|
经核准的
编辑
|
|
|
|