%I#25 2020年6月8日17:09:11
%S 5,55,56123135147175304351644101524641930461131162524,
%电话:47667156764471272480194424354883346399388505645559998085560,
%电话:83693601251669222702192962880083884031839946248478924735125358606162951091535704
%N对N进行编号,使φ(N)*sigma(N)=φ(N+1)*simma(N+1)。
%由于数字55和56都在序列中,所以我们有西格玛(55)*phi(55)=西格玛(56)*phi(56)=西格玛(57)*phi(57)。似乎56是唯一具有良好性质sigma(n-1)*phi(n-1。
%C在n<6*10^11之前,类似的方程phi(n)*sigma(n+1)=phi(n+1_Giovanni Resta_,2020年6月8日
%H Giovanni Resta,n的表,n的a(n)=1..52(术语<10^13,Jens Kruse Andersen的前40个术语)
%e5在序列中是因为sigma(5)*phi(5)=sigma。
%e 55在序列中是因为sigma(55)*phi(55)=sigma[56]*phi[56]=2880。
%p with(numtheory):A244439:=n->`if`(phi(n)*sigma(n)=phi(n+1)*simma(n+1),n,NULL):序列(A244439(n),n=1..10^4);#_韦斯利·伊万·赫特,2014年8月16日
%t选择[Range[10^5],Equal@@(EulerPhi[{#,#+1}]Divisor Sigma[1,{#,#1}])&](*_Giovanni Resta_,2020年6月8日*)
%o(PARI)
%o表示(n=1,10^6,s=eulerphi(n)*sigma(n);如果(s==eulerphi(n+1)*sigma(n+1
%Y参考A000010、A000203、A145749。
%K nonn公司
%O 1,1号机组
%A _Farideh Firoozbakht,2014年8月14日
%E来自Jens Kruse Andersen的更多条款,2014年8月16日