A098719-OEIS公司

A098719号

中质数（n）#的位置A025487号.

1, 2, 4, 9, 22, 54, 114, 246, 488, 948, 1809, 3327, 6020, 10624, 18246, 30726, 51148, 84074, 135598, 216398, 340886, 529051, 814237, 1240172, 1874464, 2817289, 4195918, 6186286, 9049492, 13121704, 18895821, 27199504, 38892092, 55318849, 78130780, 110028527 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`n=1..36时的n，a（n）表。`
	数学	块[{nn=24，f，s}，f[n_]：={{1}}~Join~Block[{lim=Product[Prime@i，{i，n}]，ww=NestList[Append[#，1]&，{1}，n-1]，g}，g[x_]：=应用[Times，MapIndexed[Prime[First@#2]^#1&，x]]；Map[Block[{w=#，k=1}，Sort@Prepend[If[Length@#==0，#，#[1]]，Product[Prime@i，{i，Length@w}]&@Reap[Do[If[#<lim，Sow[#]；k=1，如果[k>=Length@w，Break[]，k++]]&@g@Set[w，If[k==1，MapAt[#+1&，w，k]，PadLeft[#，Length@w，First@#]&@Drop[MapAt[#+Boole[i>1]&，w、k]，k-1]]，{i，Infinity}][[-1]]]&，ww]]；s=排序[Join@@f@nn]；{1} ~Join~数组[Position[s，Product[Prime@i，{i，#}]]&，nn][[All，1，1]](迈克尔·德弗利格2018年7月23日）
	交叉参考	`参见。A002110号,A025487号.` `上下文中的序列：A317735型 A238826型 A048211号A274289号 A265023型 A343291型` `相邻序列：A098716号 A098717号 A098718号A098720型 A098721号 A098722号`
	关键字	`非n`
	作者	`杰夫·伯奇2004年9月29日`
	扩展	`由扩展T.D.诺伊2010年11月12日` `更多术语来自迈克尔·德弗利格2018年7月23日` `姓名更正人阿米拉姆·埃尔达尔2022年6月5日`
	状态	`经核准的`