A073491-OEIS公司

A073491号

在因子分解中没有素数间隙的数。

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 15, 16, 17, 18, 19, 23, 24, 25, 27, 29, 30, 31, 32, 35, 36, 37, 41, 43, 45, 47, 48, 49, 53, 54, 59, 60, 61, 64, 67, 71, 72, 73, 75, 77, 79, 81, 83, 89, 90, 96, 97, 101, 103, 105, 107, 108, 109, 113, 120, 121, 125, 127, 128, 131, 135 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`A073490元（a（n））=0；子序列为：A000040型，A000961号，A006094号，A002110号，A000142号，A073485型.` `A137721号（n） =不大于n的项数；A137794号（a（n））=1；的补语A073492号. -莱因哈德·祖姆凯勒2008年2月11日` `基本上与A066311号. -R.J.马塔尔2008年9月23日` `没有间隙的分区的Heinz数。分区p=[p_1，p_2，…，p_r]的Heinz数定义为Product_{j=1..r}（p_j-th素数）（阿洛伊斯·海因茨在里面A215366型作为分区的“编码”）。示例：（i）18（=233）位于序列中，因为它是分区[1,2,2]的Heinz数；（ii）10（=2*5）不在序列中，因为它是分区[1,3]的Heinz数-Emeric Deutsch公司2015年10月2日`
	链接	`T.D.Noe，n=1..1000时的n，a（n）表`
	例子	`360是一个项，因为360=22233*5，具有连续的素数因子。`
	数学	`ok[n_]：=（p=FactorInteger[n][[All，1]]；PrimePi[最后@p]-PrimePi[第一个@p]==长度[p]-1）；选择[范围[135]，确定](Jean-François Alcover公司2011年4月29日）` `npgQ[n_]：=模[{f=Transpose[FactorInteger[n]][[1]]}，f==素数[Range[PrimePi[f[[1]]，PrimePi[f[-1]]]]；连接[{1}，选择[Range[2，200]，npgQ]](哈维·P·戴尔2013年4月12日）`
	黄体脂酮素	`（哈斯克尔）` `a073491 n=a073491_列表！！（n-1）` `a073491_list=过滤器（（==0）。a073490）[1..]` `--莱因哈德·祖姆凯勒2013年12月20日` `（PARI）是（n）=我的（f=系数（n）[，1]）；对于（i=2，#f，如果（precprime（f[i]-1）>f[i-1]，返回（0））；1 \\查尔斯·格里特豪斯四世，2015年4月28日`
	交叉参考	`囊性纤维变性。A137791美元，A137792号，A137793号，A137895号.` `上下文中的序列：A251726型 A362981型 A193671号A066311号 A069899号 A081306号` `相邻序列：A073488号 A073489号 A073490型A073492号 A073493号 A073494号`
	关键词	`非n，美好的`
	作者	`莱因哈德·祖姆凯勒2002年8月3日`
	状态	`经核准的`