%I#20 2015年5月8日11:59:14
%S 2,11101735767665115051645964578378154103334404095639353,
%电话:523000013576278257358285173813040880382755867239738107377,
%电话:112630739737057275961389146284535828595817323124388463506499460513800486211516420024613583380743576216622573
%N数N,使得φ(N)的反转为sigma(N)-N。
%eσ(2)-2=1;转速(1)=1=φ(2)。
%eσ(735)-735=633;转速(633)=336=φ(735)。
%p with(numtheory):T:=进程(w)局部x,y,z;x: =w;y: =0;
%z从1到ilog10(x)+1 do y:=10*y+(x mod 10)的p;x: =trunc(x/10);od;y;结束时间:
%p p:=proc(q)局部n;对于从1到q do的n
%p如果T(φ(n))=σ(n)-n,则打印(n);fi;od;结束:P(10^7);
%o(PARI)rev(n)=subst(Polrev(数字(n)),x,10);
%o isok(n)=(sigma(n)-n)==rev(eulerphi(n));\\_米歇尔·马库斯,2015年1月29日
%Y参见A000010、A000203、A001065、A069225、A247080。
%K nonn,基础,更多
%O 1,1
%A _Paolo P.Lava,2015年1月28日
%E a(12),来自米歇尔·马库斯,2015年1月29日
%E a(13)-a(28)摘自_Giovanni Resta_,2015年5月8日
|