%I#24 2017年3月31日00:26:02

%S 0,5,2,3,4,1,6,7,8,9,50,55,52,53,54,51,56,57,58,59,20,25,22,23,24,21，

%电话：26,27,28,29,30,35,32,33,34,31,36,37,38,39,40,45,42,43,44,41,46,47,48，

%U 49、10、15、12、13、14、11、16、17、18、19、60、65、62、63、64、66、67、68、69、70、75、72、73、74、71

%N在数字N中，将所有（十进制）数字“1”替换为“5”，反之亦然。

%C适用于A171024中素数的映射。

%H Alois P.Heinz，n的表格，n=0..999的a（n）</a>

%F复发：a（10*n+i）=10*a（n）+g（i），对于0<=i<=9，其中

%F g（x）=-13/10080*x^9+43/840*x_8~611/720*x^7+457/60*x~6-57739/1440*x^5+5007/40*x*^4-62231/280*x^3+13941/70*x_2-319/5*x.-Robert Israel_，2014年5月13日

%p a：=proc（n）局部m，d；d： =irem（n，10，'m'）；

%p`if`（n=0，0，parse（cat（a（m），`if`）（[1,5]，6-d，d）中的d））

%p端：

%p序列（a（n），n=0..99）；#_Alois P.Heinz，2013年3月2日

%t a[n_]：=整数位数[n]/。{1->5，5->1}//起始数字；表[a[n]，{n，0，80}]（*文森佐·利班迪，2013年7月30日*）

%o（PARI）A222222（n，d=[0,5,2,3,4,1,6,7,8,9]）=总和（i=1，#n=数字（n），d[n[i]+1]*10^（#n-i））\\给出当d[1]=0时n=0的正确值，因为PARI（v.2.6）中的数字（0）=[]

%o（哈斯克尔）

%o a22222=文件夹f 0。地图（阅读.return）。显示：：Integer->Integer

%o其中f v d=10*v+如果d==1 | | d==5，则为6-d，否则为d

%o——Reinhard Zumkeller，2014年1月29日

%Y参考A222210-A22254；A171013-A171016、A175770、A171018-A171057。

%K nonn，基础，简单，看

%0、2

%A _M.F.Hasler，2013年2月12日