2008年8月15日

A208815型

n，其中A079277号（n） +φ（n）<n。

115, 329, 1243, 2119, 2171, 4709, 4777, 4811, 6593, 6631, 6707, 6821, 11707, 11983, 12029, 14597, 15463, 16793, 23809, 23867, 23983, 24041, 24331, 29047, 29171, 29357, 29543, 50357, 50579, 67937, 68183, 68347, 68429, 77873, 78389, 78733, 79421, 83351, 83453, 102413 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`包括（除其他项外，见下文）半素数pq，其中p和q是整数k>1的素数p^k-p+1<q<p^k。特别是，根据素数定理，这个序列是无限的澄清人安蒂·卡图恩2017年4月26日` `发件人安蒂·卡图恩2017年4月26日：（开始）` `其中的数字nA051953号（n） >A079277号（n） ●●●●。` `术语a（1）的因式分解。。a（29）：523、747、11113、13163、13167、17277、17281、1728、19347、1934、19353、1935、23509、23521、2352、111327、74747、72399、29821、2982、298、29839、31937、31941、3194、31953、371367。注意，a（17）=15463不是半素数。` `（结束）`
	链接	`David A.Corneth，n=1..1751的n，a（n）表（8700万项）`
	例子	`A079277号（115）+φ（115）=25+88=113<115，所以115在序列中，其中φ=A000010号.`
	数学	`选择[Range[2，10^4]，Function[n，If[n==2，1，Module[{k=n-2，e=Floor@Log2@n}，While[PowerMod[n，e，k]！=0，k--]；k] ]+EulerPhi@n<n]]（或）` `执行[If[If[n==2，1，模块[｛k=n-2，e=Floor@Log2@n｝，While[PowerMod[n，e，k]！=0，k-]；k] ]+EulerPhi@n<n，打印@n]，{n，2，10^5}](迈克尔·德弗利格2017年4月27日）`
	交叉参考	`否定词在中的位置A285709型.` `囊性纤维变性。A000010号,A010846号,A051953号,A079277号,A285699型,A285710型.` `上下文中的序列：A122562号 A063361号 A340098型A334345飞机 A255143型 A154070型` `相邻序列：A208812型 A208813型 A208814型A208816型 A208817型 2008年8月18日`
	关键词	`非n`
	作者	`罗伯特·伊斯雷尔2012年3月1日`
	扩展	`a（28）-a（29）来自安蒂·卡图恩2017年4月26日` `a（30）-a（40）来自大卫·A·科内斯2017年4月26日`
	状态	`经核准的`