%I#16 2023年5月2日23:55:55
%S 1,2,1,0,1,2,2,3,0,1,1,2,3,2,3,3,0,3,2,2,2,1,2,1,1,0,12,3,2,2,
%T 3,0,1,4,3,2,1,0,3,2,5,2,1,6,3,2,1,0,5,2,1,6,3,0,1,0,3,2,3,4,3,0,3,4,
%U 3,0,3,2,5,2,1,1,4,3,0,5,2,3,2,3,0,1,4,3,0,1,6,7,2,7,2,3
%N数字k的数量,1<=k<=N,这样phi(k)=phi(N-k+1)。
%F a(n)=Sum_{k=1..n}[phi(k)=phi(n-k+1)],其中phi是Euler phi函数(A000010),[]是Iverson括号。
%e a(9)=3,因为φ(4)=φ(9-4+1),φ(5)=φ。
%t表[Sum[KroneckerDelta[EulerPhi[n-k+1],EulerPhi[k]],{k,n}],{n,100}]
%o(PARI)a(n)=总和(k=1,n,eulerphi(k)==eulerpchi(n-k+1));\\_米歇尔·马库斯,2023年5月1日
%Y参考A000010(φ)。
%K nonn,简单
%O 1,2号机组
%韦斯利·伊万·赫特,2023年4月30日