A301416-OEIS公司

A301416型

数字k inA301413型这样k*A002110号（m）在中A002201号。

1, 2, 4, 12, 24, 48, 144, 720, 1440, 10080, 30240, 60480, 302400, 604800, 6652800, 19958400, 259459200, 518918400, 3632428800, 61751289600, 185253868800, 926269344000, 17599117536000, 35198235072000, 809559406656000, 1619118813312000, 4857356439936000 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`迈克尔·德弗利格，n=1..170时的n，a（n）表` `迈克尔·德弗利格，A002201中m在（x，y）处的m=a（x）*A002110（y）图，最小4096个术语m。`
	例子	`发件人迈克尔·德弗利格，2018年5月14日：（开始）` `数字m=A301416型（x）*A002110号（y）在里面的A002201号如下所示。` `1 2 3 4 5 6 7 ...` `+-----------------------------------------------` `1 \| 2` `2 \| 6 12` `3 \| 60 120 360` `4 \| 2520 5040` `5 \| 55440` `6 \| 720720 1441440 4324320` `...` `（结束）`
	数学	t=导入[“b002201.txt”，“数据”][[全部，-1]]；（在以下位置使用b-fileA002201号或者，在A000705号到10^4术语数据集A002201号。处理10^4个术语需要很长时间：）t=With[{s=Import[“b000705.txt”，“Data”][[All，-1]]}，FoldList[Times，s]]；f[n_]：=与[{d=FactorInteger@n}，如果[n==1，{0}，ReplacePart[Table[0，{PrimePi[d[-1，1]]}]，#]&@Map[PrimePi@First@#->Last@#&，d]]]；Union@Array[Times@@MapIndexed[Prime[First@#2]^#1&，#3]&@@{#1，Boole[First@#2>0]Length@#2，DeleteCases[-1+#2，0]/.-1->0}&@@{t[[#]]，f@t[[#]]}&，Length@t]
	交叉参考	`囊性纤维变性。A002110号,A002201号,A301413型,A301414型。` `上下文中的序列：A291779号 A181809号 A181806号A340137型 A348092型 A343458型` `相邻序列：A301413型 A301414型 A301415型A301417型 A301418型 A301419型`
	关键词	`非n`
	作者	`迈克尔·德弗利格2018年4月9日`
	状态	`经核准的`