|
split[n_]：=拆分[Reverse[Integer Digits[n]]]；
list1[n_]：=列表/@Length/@split[n]；riffle1[n_]：=Riffle[split[n]，list1[n]]；
tab[n_]：=表[i，{i，1，2*长度[list1[n]]，2}]；
list2[n]：=追加[riffle1[n][#]]，riffle1[n][#+1]]&&@tab[n]；
扁平[n_]：=扁平/@list2[n]；riffle2[n]：=Riffle[第一个/@flat[n]，最后一个/@flat[n]]；
a[1]=7；一[n个_]以下为：=From数字[浅滩2[一[n个-1]]];阵列[一,10] (*或*)
一[1]=7;a[n_]：=从数字[展平[更换[Replace[Replace[Split[Reverse[整数位数[一[n个-1]]]],
{一[n个-1]]]]{x个_,年_}-> {x个,长度[{x个,年}]}, {1}], {x、y_}->{_,z（z）_}-> {x、 长度[{x，y,z（z）}]}，{1}]，{x_}->{_}-> {x、 长度[{x}]}，{1}]]；阵列[一,10] (* _伊凡 N个。伊纳基耶夫_,10月 07 2016*)
阵列[a，10](*伊万·伊纳基耶夫2016年10月6日*）
| 