年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经获得了11000条引文(通常说“多亏了OEIS才发现”)。
编辑
提出
a[n_]:=最大[Max@@@FactorInteger[n]];
表[a[n],{n,2,85}](*Jean-François Alcover公司2025年1月13日*)
经核准的
a[n_]:=如果[n==1,0,Min[Times@@@FactorInteger[n]]];
表[a[n],{n,1100}](*Jean-François Alcover公司2025年1月13日*)
s[n_]:=如果[n==0,0,DivisorSigma[1,n]];
a[n_]:=总和[如果[Mod[s[j],n]==0,1,0],{j,0,n-1}];
表[a[n],{n,0,120}](*Jean-François Alcover公司2025年1月13日之后阿洛伊斯·海因茨*)
q[p]:=PrimeQ[p]&&Union[PrimeOmega/@{p-2,p+2}]=={3};
选择[范围[2,6000],q](*Jean-François Alcover公司2025年1月13日之后阿洛伊斯·海因茨*)
a[n_]:=总和[MoebiusMu[n/d]*除数Sigma[0,9^d-1],{d,除数[n]}];
表[a[n],{n,1,40}](*Jean-François Alcover公司2025年1月13日之后阿洛伊斯·海因茨*)