A180044-OEIS公司

A180044号

设n阶Carmichael数A002997号（n） =p1*p2**pr，其中p1<p2<…<pr是质数。那么a（n）=（p1-1）*（p1*p2*…*pr-1）^（r-2）/（（p2-1）**（pr-1））。

7, 23, 48, 22, 47, 45, 45, 21, 44, 163, 2105352, 162, 43, 486266, 3157729, 9859600, 5110605, 161, 6146018, 280, 8225424, 9135075, 1684, 6185169, 1363, 159, 351, 59907600, 950, 1675, 9879408, 1358, 949, 158, 95468562, 4399220, 83722500 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`正如Alekseyev链接所证明的那样，a（n）总是一个整数。` `中提到的猜想A162290型推广如下：设k为r因子Carmichael数（p_1<p_2<…<p_r）。然后是（p_1-1）（k-1）^（r-2）/（p_2-1）*（p_r-1））是一个整数。这已经被证明了马克斯·阿列克塞耶夫（请参阅链接）。` `包含A162290型作为子序列。`
	链接	`阿米拉姆·埃尔达尔，n=1..10000时的n，a（n）表` `马克斯·阿列克塞耶夫，Pomerance的证明.`
	例子	`自A002997号（11） =41041=7111341，我们有一个（11）=（641040^2）/（101240）=2105352。`
	数学	`lim=1000001；CarmichaelQ[n_]：=可除[n-1，Carmichael Lambda[n]]&&！PrimeQ[n]；cc=选择[表格[k，{k，561，lim，2}]，CarmichaelQ]；lg=长度[cc]；a[n_]：=（c=cc[[n]]；pp=FactorInteger[c][[All，1]]；r=Length[pp]；（pp[[1]]-1）（（Times@@pp-1）^（r-2）/Times@@（Drop[pp，1]-1）））；表[a[n]，｛n，1，lg｝](Jean-François Alcover公司2011年9月28日*）`
	黄体脂酮素	`（岩浆）[（d[1]-1）（n-1）^（r-2）/&[d[i]-1:i in[2..r]]：n in[3.700000 by 2]\| not IsPrime（n）and IsSquarefree（n）和forall（t）{x:x in d\|（n-1”mod（x-1）eq 0}其中r是#d，其中d是PrimeDivisors（n）]//克劳斯·布罗克豪斯2010年8月10日`
	交叉参考	`囊性纤维变性。A104016号,A104017标准,A002997号,A162290型.` `上下文中的序列：A101789号 A174590号 A162290型A062725号 A147121号 A098334号` `相邻序列：A180041型 180042澳元 A180043型A180045型 A180046号 180047澳元`
	关键词	`非n`
	作者	`A.K.德瓦拉吉2010年8月8日`
	扩展	`编辑和扩展人马克斯·阿列克塞耶夫和克劳斯·布罗克豪斯2010年8月10日`
	状态	`经核准的`