整数序列在线百科全书®（OEIS®）

修订历史记录A355432飞机

（粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)
显示条目1-10|较旧的更改

A355432飞机

a（n）=k<n的数量，使得rad（k）=rad（n）且k不除以n，其中rad（k）=A007947号（k） ●●●●。
(历史;已发布版本)

#45通过迈克尔·德弗利格美国东部时间2023年2月28日星期二13:13:11

状态

检验过的

经核准的

#44通过米歇尔·马库斯2023年2月28日星期二13:12:09 EST

状态

提出

检验过的

#43通过迈克尔·德弗利格2023年2月28日星期二13:06:23 EST

状态

编辑

提出

#42通过迈克尔·德弗利格2023年2月28日星期二13:06:21 EST

链接

Michael De Vlieger，<a href=“/A355432飞机/b355432.txt“>n表，n=1..16384时为a（n）</a>

状态

经核准的

编辑

#41通过N.J.A.斯隆2023年2月26日星期日20:15:31 EST

状态

提出

经核准的

#40通过米歇尔·马库斯2023年2月23日星期四12:43:43 EST

状态

编辑

提出

#39通过米歇尔·马库斯2023年2月23日星期四12:43:39 EST

黄体脂酮素

（PARI）rad（n）=因子回复（因子（n）[，1]）\\A007947号

a（n）=我的（rn=拉德（n））；总和（k=1，n-1，如果（n%k，rad（k）==rn））\\米歇尔·马库斯2023年2月23日

状态

提出

编辑

#38通过迈克尔·德弗利格2023年2月22日星期三13:13:31 EST

状态

编辑

提出

#37通过迈克尔·德弗利格2023年2月22日星期三13:12:18 EST

链接

Michael De Vlieger，<a href=“/A355432飞机/a355432_1.png“>在（x，-y）</a>处绘制（k，n），k=1..n，n=1..54，显示kA126706号深蓝色，n英寸A360768型在暗红色中，对于n和非导数k，使得rad（k）=rad（n），我们用大黑点突出显示。此序列计算第n行中黑点的数量。

Michael De Vlieger，<a href=“/A355432飞机/a355432_2.png“>上述曲线图的缩合</a>，显示k=1..n且只有n inA360768型n≤54。

#36通过迈克尔·德弗利格2023年2月22日星期三12:11:50 EST

名称

分配对于迈克尔扩散系数弗利格一(n个) = 数属于 k < n个这样的那个拉德(k) = 拉德(n个) 和 k 做不分 n个, 哪里拉德(k) = A007947号(k).

数据

0, 0, 0, 0, 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, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 4, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1

抵消

1,48

对于素数幂和无平方数，a（n）=0。

配方奶粉

对于n in，a（n）>0A360768型.

a（n）<A243822型（n）<A010846号（n） ●●●●。

例子

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}]

交叉参考

囊性纤维变性。A007947号,A010846号,A013929号,A020639号,A024619号,A027750型,A126706号,A162306型,A243822型,726218元,A360589型,A360768型.

关键词

分配

非n

作者

迈克尔·德弗利格2023年2月22日

状态

经核准的

编辑

讨论

2月22日星期三

13:05

迈克尔·德弗利格：同时提议A355432、A360589和A360768。我有一个更快但更长的程序的2^24个术语。