|
楼主 |
发表于 2024-2-12 16:10
|
显示全部楼层
我们的算式不能提速吗(还得走这条路)?
- n = 1; lst = {}; For[k = 0, k < 10^10, k += 3,
- If[Total[IntegerDigits[k^2]] == 9*n, AppendTo[lst, k]; n++]]; lst
复制代码
{3, 24, 63, 264, 1374, 3114, 8937, 60663, 94863, 545793, 1989417, 5477133, 20736417,
82395387, 260191833, 706399164, 2428989417, 9380293167}
3, 24, 63, 264, 1374, 3114, 8937, 60663, 94863, 545793, 1989417, 5477133, 20736417,
82395387, 260191833, 706399164, 2428989417, 9380293167, 28105157886, 99497231067,
538479339417, 1974763271886, 4472135831667, 14106593458167, 62441868958167,
244744764757083, 836594274358167, 2445403011773313, 9983486364492063, |
|