%I M0224#39 2022年9月8日08:44:35
%S 0,1,2,2,2,4,4,2,4,2,4,6,4,4,1,6,6,8,6,6,4,8,8,8,8,6,10,8,10,10,8,
%电话:12,8,10,14,12,10,12,16,10,18,14,12,14,14,16,14,16,14,16,20,14,12,16,
%U 14,20,18,14,22,20,16,20
%N(j,k)的个数:j+k=N,(j,N)=(k,N)=1,j,k平方自由。
%C术语为偶数或1:range=A004275。[_Reinhard Zumkeller_2011年9月26日]
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%H Ernesto Bruno Cossi、Joachim Herzog、Paul R.Smith和Richard Stong,<a href=“http://www.jstor.org/stable/2324076“>问题6623,《美国数学月刊》,99(1992),573-575。
%H R.G.Wilson v,致N.J.a.Sloane的信,1993年10月</a>
%F a(n)=和{i=1..n-1}μ(i*(n-i))^2.-_2019年11月18日,Ridouane Oudra
%p with(numtheory):seq(add(mobius(i*(n-i))^2,i=1..n-1),n=1..80);#_2019年11月18日,Ridouane Oudra
%t a[n_]:=计数[表[If[SquareFreeQ[j]&GCD[j,n]==1,If[k=n-j;SquarefreQ[k]&GCD[k,n]==1,1]],{j,1,n-1}],1];表[a[n],{n,1,64}](*_Jean-François Alcover_,2011年11月28日*)
%o(哈斯克尔)
%o a007457 n=长度[k | k<-[1..n-1],gcd k n==1,a008966 k==1,
%o设j=n-k,gcdjn==1,a008966j==1]
%o--_Reinhard Zumkeller,2011年9月26日
%o(岩浆)f:=func<i,n|Gcd(i,n)eq 1和IsSquarefree(i)>;[0]cat[1..n-1]|f(i,n)中的[#[i:i和[2..70]]中的f(n-i,n_Marius A.Burtea,2019年11月19日
%o(岩浆)[0]cat[&+[MoebiusMu(i*(n-i))^2:i in[1..n-1]]:n in[2..70]];//_Marius A.Burtea,2019年11月19日
%Y参见A004275、A073311。
%K nonn,很好,很容易
%氧1,3
%A _N.J.A.Sloane_,_Robert G.Wilson v_
|