A348470-OEIS公司

A348470型

a（n）=lpf（心电图（n））=A020639号(A064413号（n））。

1, 2, 2, 2, 3, 3, 2, 2, 2, 5, 3, 2, 2, 7, 3, 2, 2, 2, 2, 11, 3, 3, 2, 5, 5, 2, 2, 13, 3, 2, 2, 2, 17, 3, 2, 2, 19, 3, 3, 2, 2, 2, 23, 3, 2, 2, 2, 2, 2, 7, 3, 2, 5, 5, 2, 2, 29, 3, 2, 2, 31, 3, 2, 2, 2, 2, 37, 3, 3, 2, 2, 2, 2, 41, 3, 3, 2, 7, 2, 2, 43, 3, 2, 5

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

Prime p_n首先出现在(A064955美元（n））。

记录包括A008578号.

链接

安蒂·卡图恩，n=1..20000时的n，a（n）表

迈克尔·德弗利格，a（n）的对数散点图n=1..2^12。

迈克尔·德弗利格，a（n）的对数散点图n=1..2^18。

与心电图序列相关的序列的索引项

数学

映射[FactorInteger[#][[1，1]]&，嵌套[Block[{k=3}，While[Or[MemberQ[#，k]，GCD[#[-1]]，k]==1]，k++]；追加[#，k]]&，{1，2}，84]]

（*或更快*）

s={1,2}；u=3；c[_]=0；集合[j，2]；数组[集合[c[#]，#]&，2]；范围[2]~连接~收获[Do[If[PrimeQ[j]，Set[u，NextPrime[u]]]；集合[k，u]；其中[And[PrimeQ[j]，OddQ[j]]，Set[k，3j]，And[PrimeQ[j/2]，OrdQ[j/2]]，Set[k，j/2]，True，While[Nand[c[k]==0，GCD[j，k]>1]，k++]]；母猪[FactorInteger[k][[1，1]]]；集合[c[k]，i]；j=k，{i，4，10^4}][[-1，-1]]

黄体脂酮素

（Python）

从itertools导入islice，计数

从数学导入gcd

从症状导入因子

def A064413gen（）：术语的#生成器

产量1

产量2

l、 s，b=2,3，设置（）

计数（0）中的_：

i=秒

为True时：

如果b中没有i且gcd（i，l）>1：

产量i

l=i

b.添加（i）

而s在b中：

b.删除

s+=1

打破

i+=1

定义A348470型（n）：如果n==1 else min，则返回1（素数（next（islice（A064413gen（），n-1，None）））#柴华武2021年12月7日

交叉参考

囊性纤维变性。A000040美元,A008578号,A020639号,A064413号,A064955美元,A073734号.

上下文中的序列：A094321号 A107789号 A124064号*A317369型 A096916号 A098014号

相邻序列：A348467飞机 A348468飞机 A348469飞机*A348471型 A348472型 A348473型

关键词

非n

作者

迈克尔·德弗利格2021年12月6日

状态

经核准的