登录
对n进行编号,使phi(n)*sigma(n)=phi(n+1)*simma(n/1)。
2

%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日