A300393-OEIS公司

A300393型

具有n个素数因子的最小平方自由数，其平均值为整数。

2, 15, 42, 1365, 2730, 451605, 870870, 140645505, 300690390, 139098404445, 304075581810, 217908972526245, 485155825624470, 378943703223140055, 1033538145201932370, 1433000638322479231005, 1987938667108592728530, 4573285492841794762027995, 12549856805456545895209890 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`A103622号列出了平均值。` `a（n）的奇偶校验不同于n的奇偶检验-大卫·A·科内斯2018年3月20日`
	链接	`保罗·拉瓦，n=1..30时的n，a（n）表`
	配方奶粉	`a（1）=2；2/1 = 2;` `a（2）=15；(3+5)/2 = 4;` `a（3）=42；(2+3+7)/3 = 4;` `a（4）=1365；(3+5+7+13)/4 = 7;` `a（5）=2730；(2+3+5+7+13)/5 = 6.`
	MAPLE公司	`使用（组合）：P:=proc（q）局部a，b，c，d，j，k，x；x： =[]；` `对于从1到q的j，dox:=[op（x），ithprime（j）]；od；对于从1到q do的j` `a： =选择（x，j）；b： =10^40；d： =0；` 对于从1到nops（a）的k，执行c:=转换（a[k]，`+`）/j；如果frac（c）=0且c<b，则b:=c；d： =转换（a[k]，`*`）；fi；od； `打印（d）；od；结束：P（30）；`
	数学	f[n_]：=如果[n==0，{1}，Block[{P=积[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=时间@@Map[If[#==0，1，Prime@#]&，累加@w]；如果[c<lim，母猪[w]；k=1，如果[k==n，中断[]，k++]]，{i，无穷}][[-1，1]]]；数组[Min@Map[Times@@#&，Select[Map[Prime@Accumulate@#&，f@#]，IntegerQ@Mean@#&]]&，14](迈克尔·德弗利格2018年3月19日）
	交叉参考	`囊性纤维变性。A005117号,A103622号.` `的后续A072697号. -米歇尔·马库斯2018年3月19日` `上下文中的序列：A032016号 A254856型 A001007号A152015号 A318914型 A346546飞机` `相邻序列：A300390 A300391型 A300392型A300394型 A300395型 A300396型`
	关键词	`非n`
	作者	`保罗·拉瓦，2018年3月5日`
	状态	`经核准的`