0,3

一个(A059708号（n） ）=A059708号（n） ●●●●-莱因哈德·祖姆凯勒2012年6月15日

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=0..10000时的n，a（n）表

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[2]]>0，FromDigits[o]FromDigets[e]，n]]；表[FixedPoint[sp，i]，{i，0，80}](*哈维·P·戴尔，2014年6月5日*）

（哈斯克尔）

导入Data.List（展开器）

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

--莱因哈德·祖姆凯勒2012年6月15日

囊性纤维变性。A059708号,A059717号.

上下文中的序列：A257294号 A330970型 A139281号*A256754型 A265525型 A355223型

相邻序列：A059704号 A059705号 A059706号*A059708号 A059709号 A059710号

非n,基础,容易的,美好的,看

N.J.A.斯隆2001年2月7日

a（50）修正人莱因哈德·祖姆凯勒2012年6月15日

经核准的