| 显示找到的2个结果中的1-2个。
第页1
2465, 62745, 512461, 656601, 658801, 838201, 1033669, 2100901, 4903921, 5968873, 6049681, 8341201, 8719309, 9439201, 9582145, 9585541, 11119105, 11921001, 12261061, 15829633, 17236801, 26921089, 35571601, 36121345, 38624041, 41341321, 43286881, 43584481, 45877861
数学
npwcQ[n_]：=长度[（p=FactorInteger[n][[；；，1]]）]>1&&AllTrue[p，可除[n-1，#-1]&]；(*A087442号*)
seq[nmax_]：=模块[{carmichaels=Select[Range[1，nmax，2]，CompositeQ[#]&Divisible[#-1，CarmichaelLambda[#]]&]，s={}，c1，c2}，Do[c1=carmichael[[k]]+2；c2=carmichaels[[k+1]]-2；当[c1<c2时，如果[npwcQ[c1]，中断[]]；c1+=2]；如果[c1==c2，AppendTo[s，carmichaels[[k]]]，{k，1，Length[carmichales]-1}]；s] ；序列[10^6]
656601, 5968873, 9582145, 45877861, 67653433, 84311569, 171454321, 171679561, 193708801, 193910977, 230630401, 357277921, 367804801, 393122521, 393513121, 393716701, 395044651, 557160241, 703995733, 710382401, 775368901, 832060801, 833608321, 834244501, 939947009
评论
171454321是具有此属性的4个连续Carmichael数的最小开始，393122521是具有该属性的5个连续Carmchael数和6个连续Carmachael数中的最小开始。
数学
npwcQ[n_]：=长度[（p=FactorInteger[n][[；；，1]]）]>1&&AllTrue[p，可除[n-1，#-1]&]；(*A087442号*)
seq[indmax_]：=模块[{carmichaels=案例[Import[“网址：https://oeis.org/A002997号/b002997.txt“，”表格“]，{_，_}][[；；，2]]，s1=s2={}，c1，c2，i}，Do[c1=carmichaels[[k]]+2；c2=carmichels[[k+1]]-2；While[c1<c2，If[npwcQ[c1]，Break[]]；c1+=2]；If[c1=c2，AppendTo[s1，carmichael[[k]]；AppendTo[s2，car迈克尔斯[[k+1]]]，{k，1，Min[indmax，Length[carmichaels]-1]}]；i=位置[Rest[s1]-Most[s2]，0]//展平；s1[[i]]]；序列[200]
搜索在0.004秒内完成
| 