%我#14 2019年12月30日15:21:19
%S 0,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,1,2,2,2,2,3,3,3,1,2,2,
%温度3,3,3,1,2,3,32,3,2,3,1,3,4,3,4,1,2,2,3,4,1,2,2,3,12,3,3,3,2,4,3,
%U 4,3,1,2,3,3,4,3,5,3,4、1,2,3,3、3,2,4,4,4,1,2,3、3,1
%N在串联为k的两个数字的“k->max乘积”下达到0的步骤数。
%H Scott R.Shannon,n表,n=0..100000的a(n)。
%e a(341)=5,因为341->123->36->18->8->0。
%t f[n_]:=如果[n<10,0,With[{d=整数位数[n]},Table[FromDigits[Take[d,k]]*FromDigets[Drop[d,k]],{k,1,Length[d]-1}]//Max]];
%t a[n_]:=如果[n==0,0,长度[FixedPointList[f,n]]-2];
%t表[a[n],{n,0,100}](*Jean-François Alcover_,2017年4月3日*)
%Y参见A035930、A035932、A03593、A03594和A035935。
%K nonn,基本,不错
%O 0,12号
%A _弗里德曼_
|