%I#10 2016年4月9日16:39:55
%S 3,14,20,28,44,92112224266260404380476552558696860984846,
%电话:106213881128127817521494142203419261704199223582466,
%电话:2712242427183222300632584924328835824296379840084518568850945352
%N精确N个分区的最小k k=x+y满足phi(k)=phi(x)+phi(y),其中phi(k)是k的Euler totient函数。
%H Paolo P.Lava,n表,n=1..50的a(n)</a>
%e phi(28)=phi(6)+phi(22)=phi(8)+phi(20)=phi(12)+phi(16)=phi(14)+phi(14)=12,28是具有此性质的两个数的4个分区的最小数:因此a(4)=28;
%eφ(112)=phi(14)+phi(98)=phi(24)+phi(88)=φ(30)+φ(82)=φ。
%p with(numtheory):p:=进程(q)局部a,h,k,n;从1到q do的h
%p代表n从2*h到q do a:=0;对于从1到trunk(n/2)的k,如果phi(n)=phi(k)+phi(n-k),则a:=a+1;fi;od;
%p如果a=h,则打印(n);断裂;fi;od;od;结束:P(10^9);
%t表格[SelectFirst[Range[10+5 n^2],函数[k,使用[{e=EulerPhi@k},
%t计数[Transpose@{Range[k-1,天花板[k/2],-1],地板[k/2]},x_/;总计@EulerPhi@x==e]==n]]],{n,25}](*_Michael De Vlieger_,2016年4月6日,第10版*)
%Y参考A000005、A211224、A271382。
%K nonn,简单
%O 1,1号机组
%A_Paolo P.Lava,2016年4月6日
|