登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
搜索 A28 884-ID:A28 847
显示1个结果的1-1。 第1页
     排序:相关关系推荐信γγ被改进的γ创建      格式:〈隆〉〉γ数据
A28 88 13 不规则三角形按行读取:t(m,k)是无平方数的列表A1002110(m)<t<2A1002110(m)这样A000 1221(t)=m。 + 10
3, 10, 42、330, 390, 2730、3570, 3990, 4290、39270, 43890, 46410、51870, 53130, 570570、690690, 746130, 870870、881790, 903210, 930930、1009470, 11741730, 13123110、14804790, 15825810, 16546530、17160990, 17687670, 18888870、281291010, 300690390, 340510170 列表图表参考文献历史文本内部格式
抵消

1,1

评论

A(n)=行m的项tAA8884A这样A1002110(m)<t<2A1002110(m)。

唯一的奇数项是3,唯一的另一个不以10, 30, 70结尾,或在小数为90的词是42。

行M中的所有术语都有A000 1221(t)=m和至少一个质数q互质对t,使得qA000 630(t)。

考虑“层”m和Primple Pm m==A1002110(m),让“扩张”I=PI(A000 630(t(m,k))-m,并设“深度”j=m-πA053668(t(m,k))+ 1。膨胀是GPF(T(m,k))和PI(m)的指数的差异,而深度是T(m,k)和PI(m)+ 1的最小素数的指数之间的差异。我们可以通过IyMax求出m和j的最大膨胀量。A020900(M -J+1)-M—J+1。这使得我们可以在符号中使用0和1值的排列。A0581441并产生一定的效率(n)。

生成(n)的最有效的方法是通过f(x)=A87352(x),即从行x中的所有值减去1A87352. 我们使用一个指针变量来直接增加f(pM mα)= m 1的常数数组,直到我们耗尽了生成项p< m<t<2×pM m。这使得生成t(m,k)为1 <m==100。

链接

Michael De Vliegern,a(n)n=1…14936的表(行1 <=m <=36)

Eric Weisstein的数学世界,原始的

Eric Weisstein的数学世界,无平方的

Michael De VliegerA28 88 13之间的关系AA8884A,A000 2110和A244052,包括A(n)项的基本分解和用于生成表的所有代码。

例子

三角形开始:

n(n)

1:3

2:10

3:42

4:330、390

5:2730、3570、3990、4290

6:39270、43890、46410、51870、53130

7:570570、690690、746130、870870、881790、903210、930930 1009470

Mathematica

表[函数[p,选择] [P[P+1, 2 p- 1 ],和[SuffRealQuq],PrimeMeGea[Ay==n]和] ]乘积[Prime @ i,{i,n},{n,7 }〕/ /平坦(*)米迦勒·德利格勒6月24日2017*)

f[n_] := Block[{P = Product[Prime@ i, {i, n}], lim, k = 1, c, w = ConstantArray[1, n]}, lim = 2 P; Sort@ Reap[Do[w = If[k == 1, MapAt[# + 1 &, w, -k], Join[Drop[MapAt[# + 1 &, w, -k], -k + 1], ConstantArray[1, k - 1]]]; c = Times @@ Map[If[# == 0, 1, Prime@ #] &, Accumulate@ w]; If[c < lim, Sow[c]; k = 1, If[k == n, Break[], k++]], {i, Infinity}] ][[-1, 1]] ]; Array[f, 9] // Flatten (*米迦勒·德利格勒,6月28日2017,快*)

黄体脂酮素

(PARI)Primo(n)=PRD(i=1,n,Prime(i));

行(n)=i(vROU= []);对于(j=Primo(n)+1, 2*Primo(n)- 1,IF(iScAcRead(j)& &(ω(j)=n)),VROU= CONTAT(VROW,J));

Tabf(NN)=(n=1,NN,打印(行(n)));米歇尔马库斯6月29日2017

交叉裁判

囊性纤维变性。A000 1221A1002110A020900AA8884A.

关键词

诺恩塔布容易

作者

米迦勒·德利格勒6月24日2017

地位

经核准的

第1页

搜索在0.006秒内完成

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改12月14日14:20 EST 2019。包含329979个序列。(在OEIS4上运行)