%I#73 2024年5月5日19:55:09

%S 3,5,7,11,12,13,15,16,17,18,20,22,24,26,27,28,29,30,31,33,40,41,42,43，

%电话：44,46,49,50,51,53,55,58,59,60,62,63,64,66,67,68,69,70,71,72,73,78,79，

%U 80,92,93,95,98101102103104105107109111115116117单位

%N编号k，使A124652（k）除以A372111（k-1）。

%C包含A372009（m），m>1。

%C对于该序列中的k，当i>2时，A124652（k）与A372111（k-1）的关系与A109890（i）与A109735（i-1）的联系相同。

%H Michael De Vlieger，n的表，a（n）表示n=1..10000</a>

%H Michael De Vlieger，<a href=“/A327028/a327028.png”>记录A124652（n）</a>的对数散点图，n=1..10^5，显示A124652（a（n））为绿色，但A124652（a（n））为红色。

%F A124652（a（n））是A027750的A372111（a（n）-1）行中的一个数字。

%e设b（x）=A124652（x）和s（x）=A372111（x），其中A372111包含A124651的部分和。

%e a（1）=3，因为b（3）=3是s（2）=3的除数。

%e a（2）=5，因为b（5）=5，s（4）的除数=10。

%e a（3）=7，因为b（7）=6，s（6）的除数=24，等等。

%t nn=120；c[_]：=错误；

%t rad[x_]：=rad[x]=倍@FactorInteger[x][[All，1]]；

%t f[x_]：=选择[Range[x]，Divisible[x，rad[#]]&]；

%t数组[Set[{a[#]，c[#]}，{#，True}]&，2]；s=a[1]+a[2]；

%t收割[Do[r=f[s]；k=选择第一项[r，！c[#]&]；

%t如果[s，k]，Sow[i]]；c[k]=正确；

%ts+=k，{i，3，nn}][[-1，1]]

%Y参见A007947、A027750、A109735、A109890、A124652、A372009、A372111、A372399。

%K非n

%O 1,1号机组

%A _米歇尔·德弗里格，2024年5月5日