- Select[3*Range@333,Total[IntegerDigits[#^2]]==9*Length@IntegerDigits@#&]
复制代码
{3,6,9,24,27,33,36,42,54,57,66,69,72,75,78,81,84,96,99,114,117,126,141,183,186,192,207,213,216,219,222,228,234,237,243,258,267,273,276,279,282,288,291,294,297,303,306,309,312,315,324,327,333,336,342,357,363,366,372,378,384,393,396,408,411,414,426,432,435,438,441,444,456,474,477,483,486,507,513,516,519,522,525,531,534,546,564,567,573,576,582,588,591,594,597,603,606,609,612,615,618,621,627,630,633,636,648,654,657,666,669,672,675,681,693,696,699,702,705,717,723,726,732,738,741,744,747,753,756,759,762,765,771,777,783,792,798,804,807,819,825,831,837,843,846,852,858,870,873,879,885,897,903,906,909,912,915,918,921,930,939,945,966,975,981,996,999} |