表[(除数[n][[Length[Divisors[n]]/2+1]]-Boole[Not[IntegerQ[Sqrt[n]]]*除数[n][[Leng[Divisor s[n]]/2])/2,{n,1,99,2}](*Alonso del Arte,2012年11月25日,2024年3月21日更正*)具有帮助从_乔治卡洛格罗普洛斯_ *)
表[(除数[n][Length[Divisions[n]]/2+1]]-Boole[Not[InterQ[Sqrt[n]]*除数[n][Length[Divisions[n]]/2]])/2,{n,1,99,2}](*Alonso del Arte,2012年11月25日,2024年3月21日更正*)