第2个回答 2018-12-12
a = Array[99 + # &, 900]; b = {}; Map[
If[Total[ToExpression[Characters[ToString[#]]]] == 15,
AppendTo[b, #]] &, a]; Length[b]
b
Mathematica编程求解得到69组:
{159, 168, 177, 186, 195, 249, 258, 267, 276, 285, 294, 339,348, 357, 366, 375, 384, 393, 429, 438, 447, 456, 465, 474, 483, 492, 519, 528, 537, 546, 555, 564, 573, 582, 591, 609, 618, 627, 636, 645, 654, 663, 672, 681, 690, 708, 717, 726, 735, 744, 753, 762, 771, 780, 807, 816, 825, 834, 843, 852, 861, 870, 906, 915, 924, 933, 942, 951, 960}