%I#29 2021年3月10日09:34:09

%S 0,0,0,1,0,0、0,0和0,0，0,1,2,2,2,3,3,4,4,5,5,0,0-0、0,1,0和1,0,0，

%T 1,1,2,2,2,2,3,3,4,4,4，4,5,5,6,6,6，6,7,6,6-，7,7,8,8,9,9,10，

%U 10,10,10,11,12,12,12,12,12-13,12,12,12,12,13,13,13,14,14,14],14,15,15,16,16,17,17

%N放弃N的阶乘基数表示中最右边的数字，并从所有剩余的非零数字中减去一，然后转换回十进制。

%换句话说，从n的阶乘基表示（A007623）中的所有非零数字中减去一，并将其右移一步（即删除最右边的零），然后再转换回十进制。

%H Antti Karttunen，n的表，n=0..10080的a（n）</a>

%对于所有n>=0，a（A255411（n））=n。[该序列作为A255411的左逆。参见A257685了解“清理”版本。]

%e对于阶乘基表示为“20”的4（4=2*2！+0*1！），当我们丢弃最右边的零，从2中减去1时，我们得到“1”，因此a（4）=1。

%e对于阶乘基表示为“300”的18（18=3*3！+0*2！+0*1！），当我们丢弃最右边的零，从3中减去1时，我们得到“20”，因此a（18）=4。

%t nn=95；m=1；而[阶乘@m<nn，m++]；米；地图[FromDigits[#，MixedRadius[Reverse@Range[2，m]]]&[If[#==0，0，#-1]&/@Most@IntegerDigits[#，MixidRadius[Reverse@Range[2]，m]]]&，Range[0，nn]]（*_Michael De Vlieger_，2016年8月11日，10.2*版）

%o（方案）（define（A257684n）（let loop（（n n）（z 0）（i 2）（f 0））（cond（（zero？n）z）（else（let（（d（余数n i）））（loop（商n i）（+z（*f（-d（if（zero？d）0 1））））（+1 i）（if（zero？f）1（*f（-i 1））））））））

%o（Python）

%o来自sympy import factorial as f

%o定义a007623（n，p=2）：

%o如果n<p，则返回n，否则返回a007623（n//p，p+1）*10+n%p

%o定义a（n）：

%o x=str（a007623（n））[：-1]

%o y=“”.join（str（int（i）-1）if int（i

%o如果n==1，则返回0，否则求和（int（y[i]）*f（i+1）表示范围（len（y））中的i）

%o打印（[a（n）代表范围（101）内的n）]#_Indranil Ghosh，2017年6月19日

%Y零位置：A059590。

%Y参见A007623、A255411、A257685和A257687。

%Y可用于定义序列A034968、A246359、A257679、A257/694、A257695和A257696的简单重复。

%K nonn，基础

%O 0,13号

%A _Antti Karttunen，2015年5月4日