%I#17 2019年4月6日17:48:40
%S 2,1,0,3,4,5,6,7,8,9,12,11,10,13,14,15,16,17,18,19,2,1,0,1,3,5,6,7,8,
%电话:9,32,31,30,33,34,35,36,37,38,39,42,41,40,43,44,45,46,47,48,49,52,51,
%U 50,53,54,55,56,57,58,59,62,61,60,63,64,65,66,67,68,69,72,71,70,73,74,75
%N在数字N中,将所有(十进制)数字“0”替换为“2”,反之亦然。
%C适用于A171014中素数的映射。
%C程序应在结果项中省略前导“0”位。-_乔治·菲舍尔(Georg Fischer),2019年4月6日
%H Vincenzo Librandi,n的表,n=0..1000的a(n)</a>
%t a[n_]:=整数位数[n]/。{0->2,2->0}//起始数字;表[a[n],{n,0,80}](*文森佐·利班迪,2013年7月29日*)
%o(PARI)A222211(n,d=[2,1,0,3,4,5,6,7,8,9])={和(i=1,#n=数字(n),d[n[i]+1]*10^(#n-i),!n*d[1])}\\注意:PARI中的数字(0)=[](v.2.6)
%o(Perl)打印联接(“,”,映射{tr/02/20/;$_+0}(0..75));#_乔治·菲舍尔(Georg Fischer),2019年4月6日
%Y参见A222210-A222254(其他数字对)、A171013-A171057、A175770(质数)。
%K nonn,基础,简单
%0、1
%A.M.F.Hasler_,2013年2月12日
|