登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志


提示
问候整数序列的在线百科全书!)
搜索 A28 783- ID:A28 7863
显示1-2个2个结果。 第1页
     排序:相关关系推荐信γγ被改进的γ创建      格式:〈隆〉〉γ数据
A87691 按行读取的三角形:t(n,k)(0 <=k<=n)是无平方数。A1002110(n)<= m <A1002110(n+1)- 1)A000 1221(m)=n和m可被整除。A1002110(k)。 + 10
1, 2, 1,2, 4, 1,3, 7, 8,1, 5, 12,23, 17, 1,6, 16, 44,56, 29, 1,9, 24, 78,130, 139, 41,1, 9, 30,107, 214, 351,224, 59, 1,224, 59, 1,γ,γ,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

0、2

评论

让pnn*==A1002110(n)。

T(n,n)=1,因为PnNα是唯一的Pynα可分的基元。

第一行的最大值是{1, 2, 4,8, 23, 56,139, 351, 707,1637, 3782, 8843,18442, 38103, 77355,177358, 387470,…}在位置{1, 1, 2,3, 3, 4,5, 5, 5,6, 7, 7,7, 9, 10,10, 10,…}。

A24784A(n)=行n之和。米迦勒·德利格勒,军07 2017

链接

Michael De Vliegern,a(n)n=0…230的表(行0<n<=20)。

例子

三角形开始:

n 0,1,2,3,4,5,6,7,8 9 10

------------------------------------------------------

0×1

1×2 1

2、2、4、1

3、3、7、8、1

4、5、12、23、17、1

5、6、16、44、56、29、1

6,9,24,78,130,139,41,1

7,9,30,107,214,351,224,59,1

8,11,39,154,332,707,650,389,76 1

9,17,64,261,598,1475,1637,1489,640 112 1

10,21,82,378,902,2496,3155,3782,2505 1041 144 144

让pnn*==A1002110(n)。

A24784A(2)=7平方自由数m介于p2 2=6和p3 3×1=29之间:{6, 10, 14,15, 21, 22,26 }。其中,{15, 21 }可由p0 0=1整除,{ 10, 14, 22,26 }可被p1 1=2整除,{6 }可被p2 2α=6整除。因此,t(2,k)={ 2, 4, 1 }。

注意,与上述示例有关的术语{15, 21 }、{ 10, 14, 22、26 }和{ 6 }出现在行n中。A28 7863排序为{6, 10, 14,15, 21, 22,26 }。-米迦勒·德利格勒,军07 2017

Mathematica

[长度/ @分裂]排序@ map [块[{=1 },同时[可分[*,PrimeK],K++];K],选择[范围[A],Prime [n+1] 1 ],和[[SuffRealQuq],PrimeMeGea[Ay==n]和]乘积[Prime@ i,{i,n}] ],{n,0, 6 } //平坦(*)米迦勒·德利格勒5月29日2017*)

交叉裁判

囊性纤维变性。A000 1221A1002110A28 7863A24784A.

关键词

诺恩塔布

作者

米迦勒·德利格勒5月29日2017

地位

经核准的

A87692 按行读取的三角形:t(n,k)是无平方因子之间的最大因子之间的最大差异A1002110(n)<= m <A1002110(n+1)- 1)A000 1221(m)=n和m可被整除。A1002110(k)。 + 10
3, 2, 5、2, 3, 9、2, 3, 5、18, 2, 2、4, 7, 30、2, 2, 3、5, 10, 42、2, 2, 3、4, 6, 13、60, 2, 2、3, 4, 5、8, 17, 77、8, 17, 77、y、y、y、y、y、y、y、y、y、y、y、γ、y、γ 列表图表参考文献历史文本内部格式
抵消

1,1

评论

让pnn*==A1002110(n)。

T(n,1)是行n中m个最小素数除数p的最大指标。

t(n,n)=A120 941(n)。

考虑使用A87352作为一种用N个素数因子生成无平方数的方法。行n中的值作为一个极限,我们不需要进一步搜索pnn*=m==(p~(n+1)α- 1)。A87352使用非零正项序列定义一个无平方的数,从最小素数因子的索引开始,然后按其大小顺序列出后续素数因子的索引之间的差异。只要数m<p~(n+1),然后在它之前增加索引等,就可以直接将增量递增到最大素数索引,从而产生编码m的因子的整棵树。

链接

n,a(n)n=1…78的表。

例子

三角形开始:

NK K 1 2 3 3 4 5 6 7 7 9 10 11 12

------------------------------------------

1×3

2×2 5

3、2、3、9

4、2、3、5、18

5、2、2、4、7、30

6、2、2、3、5、10、42

7,2,2,3,4,6,13,60

8,2,2,3,4,5,8,17,77

9,2,2,3,3,4,6,10,22 113

10,2,2,2,3,4,5,8,12 25 145

11,2,2,2,3,4,5,6,9 15 32 32

12,2,2,2,3,4,4,6,7 11 19 19 36

让pnn*==A1002110(n)。对于n=2,有A24784A(2)=7平方自由数p2 2=m==(p3)- 1,使得ω(m)=n,它们是{ 6, 10, 14,22, 26, 15,21 }。这些数字有A87352(m)={{1,1,1},{1,2},{1,3},{1,4},{1,5},{2,1},{2,2}};两个位置中的最大值是{2,5},因此A(n)的行n=2是{2,5}。

Mathematica

f[n_] := If[n == 0, {{1}}, Block[{P = Product[Prime@ i, {i, n}], lim, k = 1, c, w = ConstantArray[1, n]}, lim = Prime[n + 1] P; {w}~Join~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[w]; k = 1, If[k == n, Break[], k++]], {i, Infinity}] ][[-1, 1]] ] ]; Table[Max /@ Transpose@ f@ n, {n, 14}] // Flatten (*米迦勒·德利格勒6月15日2017*)

交叉裁判

囊性纤维变性。A000 1221A1002110A120 941A28 7863A24784AA87691.

关键词

诺恩塔布

作者

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

地位

经核准的

第1页

搜索在0.005秒内完成

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

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

最后修改1月25日01:46 EST 2020。包含331229个序列。(在OEIS4上运行)