%I#12 2016年8月31日20:53:15

%S 0,0,0,12,0,4,0,6,6,8,6,10,12,14,12,16,0,18,18,20,18,22,0,24,24，

%电话：26,24,28,0,30,30,32,30,34,30,36,36,38,36,40,30,42,44,42,46,30,48，

%U 48,50,48,52,30,54,56,54,58,0,60,62,60,64,60,66,66,68,66,60,72,72,74,72,76,60,78,80,78,82,60,84,84,86,84,88,0,90

%N基本基数中的最低有效非零数字替换为零：a（N）=N-A276094（N），a（0）=0。

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

%H<a href=“/index/Pri#primorialbase”>与原始基底相关序列的索引条目</a>

%F a（n）=n-A276094（n）。

%e n A049345，最右侧转换回

%e非零被0替换为十进制=a（n）

%e（电子）---------------------------------------------------------

%e 0 0 0 0

%e 1 1 0 0

%e 2 10 00 0

%e 3 11 10 2

%e 4 20 00 0

%e 5 21 20 4

%e 6 100 000 0

%e 7 101 100 6

%e 8 110 100 6

%电子9 111 110 8

%e 10 120 100 6

%e 11 121 120 10

%e 12 200 000 0

%e 13 201 200 12

%电子14 210 200 12

%电子15 211 210 14

%e 16 220 200 12

%t nn=91；b=混合基数[Reverse@Prime@Range@PrimePi[nn+1]]；FromDigits[#，b]&/@Join[{0}}，Table[Function[w，Join[Take[w，Length@w-#-1]，ConstantArray[0，#+1]]&@Length@TakeWhile[Reverse@w，#==0&]]@IntegerDigits[n，b]，{n，nn}]]（*版本10.2，或*）

%t f[n_]：=块[{a={0,n}}，Do[AppendTo[a，{First@#，Last@#}&@QuotientRemainder[a[[-1，-1]]，Times@@Prime@Range[#-i]]，{i，0，#}]&@NestWhile[#+1&，0，Times@Prime@Range[#+1]<=n&]；休息[a][[All，1]]]；g[w_List]：=总计[Times@@@Transpose@{Map[Times@@#&，Prime@Range@Range[0，Length@w-1]]，Reverse@w}]；g/@Join[{{0}}，Table[Function[w，Join[Take[w，Length@w-#-1]，ConstantArray[0，#+1]]&@Length@TakeWhile[Reverse@w，#==0&]]@f@n，{n，91}]]（*_Michael De Vlieger_，2016年8月30日*）

%o（方案）（定义（A276093 n）（-n（A2760.94 n）））

%Y参见A276094、A276086。

%K非n，碱基

%0、4

%A _Antti Karttunen，2016年8月22日