|
|
A355432飞机 |
| a(n)=k<n的数量,使得rad(k)=rad(n)且k不除以n,其中rad(k)=A007947号(k) ●●●●。 |
|
13
|
|
|
0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,4,0,2,0,0,0,0,0,4,0,0,0,1,0,0,0,0, 0, 0, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,48
|
|
评论
|
对于素数幂和无平方数,a(n)=0。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(1)=18,自18/6>=3起。我们注意到rad(12)=rad(18)=6,但12不除以18。
a(2)=24,因为24/6>=3。拉德(18)=拉德(24)=6,24模18=6。
a(3)=36,因为36/6>=3。拉德(24)=拉德(36)=6,36模24=12。
a(6)=54,因为54/6>=3。{12,24,36,48}中的m是这样的:rad(m)=rad(54)=6,但无一除以54,以此类推。
|
|
数学
|
rad[n]:=rad[n]=倍数@@FactorInteger[n][All,1]];表[Which[PrimePowerQ[n],0,SquareFreeQ[n]0,True,r=rad[n];计数[Select[Range[n],Nor[PrimePowerQ[#],SquareFreeQ[#]]&],_?(和[rad[#]==r,Mod[n,#]!=0]&)]],{n,120}]
|
|
黄体脂酮素
|
a(n)=my(rn=rad(n));总和(k=1,n-1,如果(n%k,rad(k)==rn))\\米歇尔·马库斯2023年2月23日
|
|
交叉参考
|
囊性纤维变性。A007947号,A010846号,A013929号,A020639号,A024619号,A027750型,A126706号,162306年,243822英镑,726218元,A360589型,A360768型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|