%I#39 2024年4月24日02:43:20

%S 8911115227110267951149916437799167902031139952671178482151，

%电话：612816751652969351743404663200043675125606003513102234751，

%电话：3215031751561565995158830817517773873751886332951194629324311051586711335174831121915975119468297511615787926321046047751

%N不是x^2+y^2+z^2形式的Carmichael数，其中x、y和z是整数。

%C A002997和A004215的交叉口。

%C卡迈克尔数，是4个非零平方的和，但不少于4个非零平方。

%C形式为8*k+7的Carmichael数。

%C A185321的后续。

%形式为x^2+y^2+z^2的C Carmichael数，其中x、y和z是整数，包括561、1105、1729、2465、2821、6601、10585、15841、29341、41041、46657、52633、62745、63973、75361、101101、115921、126217、162401、172081、188461、252601、278545、294409、314821、334153、340561、399001、410041、449065、48881、512461、530881，552721。。。

%H Amiram Eldar，n的表，n=1..100000的a（n）（使用Claude Goutier的数据计算）

%H Claude Goutier，<a href=“网址：http://www-labs.iro.umontreal.ca/~goutier/OEIS/A055553/“>压缩文本文件carm10e22.gz，其中包含10^22以内的所有Carmichael数字。

%H G.Tarry、I.Franel、A.Korselt和G.Vacca<a href=“https://oeis.org/wiki/File:Probl%C3%A8me_chinois.pdf“>《中国问题》（Problème chinois），《数学国际杂志》第6期（1899年），第142-144页。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/CarmichaelNumber.html“>Carmichael编号</a>

%H与Carmichael数相关的序列的索引条目。

%e卡迈克尔数561不是这个序列的一个项，因为561=2^2+14^2+19^2。

%e Carmichael数8911是一个项，因为方程8911=x^2+y^2+z^2没有x、y和z的整数值。

%e卡迈克尔数10585不是一个项，因为10585=0^2+37^2+96^2。

%p过滤器：=程序（n）

%p局部q；

%p如果isprime（n），则返回假fi；

%p如果2&^（n-1）mod n<>1，则返回false fi；

%ifactors（n）[2]do中q的p

%p如果q[2]>1或（n-1）mod（q[1]-1）<>0，则返回假fi

%p od；

%p为真

%p端程序：

%p选择（过滤器，[seq（8*k+7，k=0..10^7）]）；#_罗伯特·伊斯雷尔（Robert Israel），2016年1月18日

%t选择[8*Range[18000000]+7，CompositeQ[#]&Divisible[#-1，CarmichaelLambda[#]]&]（*_Amiram Eldar_，2019年6月26日*）

%o（PARI）是A004215（n）={my（fouri，j）；fouri=1；while（n>=7*fouri），if（n%fouri==0，j=n/fouri-7；if（j%8==0，return（1）；）；fouri*=4；）；return

%o是A002997（n）={my（f）；位测试（n，0）&&！对于（i=1，#f=factor（n）~，（f[2，i]==1&&n%（f[1，i]-1）==1）||return）&&#f>1}

%o表示（n=0，1e10，如果（isA002997（n）&&isA004215（n），打印1（n，“，”））；

%o（PARI）是A002997（n）={my（f）；位测试（n，0）&&！对于（i=1，#f=factor（n）~，（f[2，i]==1&&n%（f[1，i]-1）==1）||return）&&#f>1}

%o表示（n=0，1e10，如果（isA002997（k=8*n+7），打印1（k，“，”））；

%Y参见A002997、A004215、A185321、A265237。

%K nonn公司

%O 1,1号机组

%A Altug Alkan，2016年1月15日