A280693-OEIS公司

208693元

数字n是这样的A003961号（n）=A250469型（n）。

1, 2, 3, 4, 5, 6, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 29, 31, 35, 37, 41, 43, 47, 49, 50, 52, 53, 55, 59, 61, 65, 66, 67, 71, 73, 77, 79, 83, 85, 89, 91, 95, 97, 101, 103, 107, 109, 113, 115, 119, 121, 127, 131, 133, 137, 139, 143, 149, 151, 157, 161, 163, 167, 169, 173, 179, 181, 186, 187, 191, 193, 197, 199, 203 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`零的位置A280692型.推测也是A280703型.` `对于该序列的大多数项kA003961号（k）也包括在术语中。例外情况包括：50、52、66、186、435、1245、1445、2068、2085、11605。。。这似乎是所有包含两个以上基本因子的术语的子序列：50、52、66、186、435、1245、1445、2068、2085、8695、11605。。。` `注意8695=53747和A003961号(8695) = 74153 = 15211 =A003961号(8695) =A250469型（8695）（无明显原因？）。`
	链接	`安蒂·卡图恩，n=1..2001的n，a（n）表`
	数学	`f[n_]：=f[n]=其中[n==1，1，PrimeQ@n，NextPrime@n，True，Times@@Replace[FactorInteger[n]，{p_，e_}:>f[p]^e，1]]；g[n_]：=如果[n==1，0，PrimePi@FactorInteger[n][[1，1]]]；使用[｛nn＝204｝，Function[s，Function[t，Select[Range@nn，f@#=t[[#]]&]]@MapIndexed[Lookup[s，g[First@2]+1][#1]]-Boole[First@2=1]&，#]&@Map[Position[Lookup[s，g@#]，#][1，1]]&，Range@nn]]@PositionIndex@Array[g，10^4]](迈克尔·德·维利格，2017年3月8日，第10版）`
	程序	`（方案，带有Antti Karttunen公司的IntSeq-library）` `（定义208693元（零位11A280692型))`
	交叉参考	`置换的不动点A266645型&A266646型.` `囊性纤维变性。A001222号,A003961号,A250469型,A280692型,A280703型.` `囊性纤维变性。A000040型,A001248号,A006094号,A251728型（子序列）。` `也可参考阵列A083221号和A246278号.` `上下文中的序列：A033059号 A031876号 A292621型A281613型 747438英镑 A011867号` `相邻序列：A280690型 A280691型 A280692型A280694型 A280695型 A280696型`
	关键词	`非n`
	作者	`Antti Karttunen公司2017年3月8日`
	状态	`经核准的`