本原勾股数接龙

northwolves

nyy 发表于 2023-12-12 09:07
如果接龙的时候，要求里面至少一个素数。比如你的
{88621, 55980, 104821}, {104821, 4012260, 4013629}, ...

1. NestWhileList[
   
2. Values@Solve[
   
3.      x == #[[-1]] && x^2 + y^2 == z^2 && GCD[x, y] == 1 &&
   
4.       z > y > 0, {x, y, z}, Integers][[1]] &, {5, 12, 13},
   
5. Total@Boole[PrimeQ@#] > 0 &]

复制代码

{{5,12,13},{13,84,85},{85,132,157},{157,12324,12325},{12325,89892,90733}}

northwolves

1. NestWhileList[Values@Solve[x==#[[-1]]&&x^2+y^2==z^2&&GCD[x,y]==1&&z>y>0,{x,y,z},Integers][[1]]&,{3,4,5},Total@Boole[PrimeQ@#]>0&]

复制代码

{{3,4,5},{5,12,13},{13,84,85},{85,132,157},{157,12324,12325},{12325,89892,90733}}