A270652-OEIS公司

OEIS由支持OEIS基金会的许多慷慨捐赠者.

A270652型

Max（i，j），其中p（i）*p（j）是A006881号.

42

2, 3, 4, 3, 4, 5, 6, 5, 7, 4, 8, 6, 9, 7, 5, 8, 10, 11, 6, 9, 12, 5, 13, 7, 14, 10, 6, 11, 15, 8, 16, 12, 9, 17, 7, 18, 13, 14, 8, 19, 15, 20, 6, 10, 21, 11, 22, 16, 9, 23, 17, 24, 18, 12, 7, 25, 19, 26, 10, 13, 27, 8, 20, 28, 14, 11, 29, 21, 7, 30, 15, 22

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

抵消

1,1

链接

克拉克·金伯利，n=1..1000时的n，a（n）表

例子

A006881号=（6，10，14，15，21，22，26，33，34，35，38，…），不同素数的所有乘积的递增序列。前4个因式分解是2*3，2*5，2*7，3*5，因此（a（1），a（2），a，a（4））=（2,3,4,3）。

数学

mx=350；t=排序@扁平@表[素数[n]*素数[m]，{n，对数[2，mx/3]}，{m，n+1，素数Pi[mx/Prime[n]]}]；(*A006881号,罗伯特·威尔逊v2012年2月7日*）

u=表[FactorInteger[t[k]][[1]，{k，1，长度[t]}]；

u1=表[u[[k]][[1]]，{k，1，长度[t]}](*A096916号*)

PrimePi（u1）(*A270650型*)

v=表[FactorInteger[t[k]][2]]，{k，1，长度[t]}]；

v1=表格[v[[k]][1]，{k，1，长度[t]}](*A070647号*)

PrimePi[版本1](*A270652型*)

d=v1-u1(*A176881号*)

映射[PrimePi[FactorInteger[#][[-1，1]]&，选择[Range@240，And[SquareFreeQ@#，PrimeOmega@#==2]&]](*迈克尔·德弗利格2016年4月25日*）

交叉参考

囊性纤维变性。A000040型,A006881号,A096916号,A270650型,A070647号,A270003型.

上下文中的序列：A123066号 A330239型 A235121型*A326693型 A280242型 A325953型

相邻序列：A270649型 A270650型 A270651型*A270653型 A270654型 A270655型

关键词

非n,容易的

作者

克拉克·金伯利2016年4月25日

状态

经核准的