高次幂展开各数位求和

王守恩

1. Table[SelectFirst[3 Range[10^8], Total[IntegerDigits[#^9]] == 9 n &], {n, 3, 52}]

复制代码

{3, 6, 9, 15, 18, 36, 27, 96, 72, 159, 237, 381, 348, 693, 555, 1476, 2022, 2568, 2493, 4818, 4446, 7446, 12915, 17469, 31227, 41799, 59247, 96258, 125064, 211026, 232614, 305226, 436806,
706059, 765156, 1219551, 1350756, 3052353, 2089047, 2984517, 8906538, 13509534, 18618906, 23264568, 36667776, 44495439, 78075918, 105968319, 83240802, 211791549}

lihpb00

记得是要用椭圆函数