%I#7 2023年8月24日03:12:21

%S 282163973530881658801670033852841105098521139214909177，

%电话：604968160549858355841871992194941019585541961329711205601，

%电话：11972017122623211588313173160016932081357033613676590138637361414715214333140143620405890209

%N孪生Carmichael数中的较大者：一对连续的Carmichale数（A002997），它们之间没有非素数幂弱Carmichal数（A087442）。

%H Amiram Eldar，n的表，n=1..1000的a（n）</a>

%H毛罗·佛罗伦萨，<a href=“http://www.bitman.name/math/article/919“>Carmichael gemelli（数字di）（意大利语）。

%H Romeo Meštrović，<a href=“http://arxiv.org/abs/1305.1867“>Carmichael数的推广I，arXiv:1305.1867[math.NT]，2013。

%t npwcQ[n_]：=长度[（p=FactorInteger[n][[；；，1]]）]>1&&AllTrue[p，可除[n-1，#-1]&]；（*A087442*）

%t seq[nmax_]：=模块[{carmichaels=Select[Range[1，nmax，2]，CompositeQ[#]&Divisible[#-1，CarmichaelLambda[#]]&]，s={}，c1，c2}，Do[c1=carmichael[[k]]+2；c2=卡迈克尔氏菌[[k+1]-2；当[c1<c2时，如果[npwcQ[c1]，中断[]]；c1+=2]；如果[c1==c2，AppendTo[s，carmichaels[[k+1]]]，{k，1，Length[carmichales]-1}]；s] ；序列[10^6]

%Y A002997的子序列。

%Y参见A000961、A087442、A225498、A365022（较小的对应项）、A365024。

%K nonn公司

%O 1,1号机组

%A阿米拉姆·埃尔达尔，2023年8月17日