- Flatten@Table[Select[(Range@9)*(10^n-1)/9,Total@IntegerDigits@(#^2)==n*9&],{n,20}]
复制代码
{3,6,9,33,66,99,222,333,444,666,777,999,3333,6666,9999,33333,66666,99999,222222,333333,444444,666666,777777,888888,999999,3333333,6666666,9999999,33333333,66666666,99999999,111111111,222222222,333333333,444444444,555555555,666666666,777777777,888888888,999999999,3333333333,6666666666,9999999999,33333333333,66666666666,99999999999,222222222222,333333333333,444444444444,666666666666,777777777777,999999999999,3333333333333,6666666666666,9999999999999,33333333333333,66666666666666,99999999999999,222222222222222,333333333333333,444444444444444,666666666666666,777777777777777,888888888888888,999999999999999,3333333333333333,6666666666666666,9999999999999999,33333333333333333,66666666666666666,99999999999999999,111111111111111111,222222222222222222,333333333333333333,444444444444444444,555555555555555555,666666666666666666,777777777777777777,888888888888888888,999999999999999999,3333333333333333333,6666666666666666666,9999999999999999999,33333333333333333333,66666666666666666666,99999999999999999999} |