1572*8634=13572648

northwolves

1. ToString[#]<>"*3="<>ToString[3#]&/@Flatten@Table[Select[Range[10^n+2,(10^(n+1)-1)/3,3],DigitCount[#]==DigitCount[3#]&],{n,5}]

复制代码

{1035*3=3105,2475*3=7425,10035*3=30105,10350*3=31050,12375*3=37125,14247*3=42741,14724*3=44172,23751*3=71253,24147*3=72441,24714*3=74142,24750*3=74250,24876*3=74628,24975*3=74925,27585*3=82755,28575*3=85725,100035*3=300105,100350*3=301050,102375*3=307125,103428*3=310284,103500*3=310500,107235*3=321705,113724*3=341172,114237*3=342711,123507*3=370521,123714*3=371142,123750*3=371250,123876*3=371628,123975*3=371925,124137*3=372411,128034*3=384102,134505*3=403515,135045*3=405135,137124*3=411372,137241*3=411723,138456*3=415368,138546*3=415638,140247*3=420741,141237*3=423711,142371*3=427113,142470*3=427410,142497*3=427491,142857*3=428571,143505*3=430515,143793*3=431379,143856*3=431568,145035*3=435105,145386*3=436158,147024*3=441072,147240*3=441720,149724*3=449172,150345*3=451035,150435*3=451305,153846*3=461538,154386*3=463158,157284*3=471852,158427*3=475281,172575*3=517725,175257*3=525771,175725*3=527175,189657*3=568971,196587*3=589761,206793*3=620379,206856*3=620568,207693*3=623079,230679*3=692037,230769*3=692307,235071*3=705213,235107*3=705321,237114*3=711342,237141*3=711423,237501*3=712503,237510*3=712530,238761*3=716283,239751*3=719253,240147*3=720441,241137*3=723411,241371*3=724113,241470*3=724410,241497*3=724491,242748*3=728244,247014*3=741042,247140*3=741420,247428*3=742284,247500*3=742500,248274*3=744822,248760*3=746280,248976*3=746928,249714*3=749142,249750*3=749250,249876*3=749628,249975*3=749925,251757*3=755271,257175*3=771525,257517*3=772551,271584*3=814752,274248*3=822744,274824*3=824472,275850*3=827550,275886*3=827658,275985*3=827955,276489*3=829467,280341*3=841023,281034*3=843102,282474*3=847422,284157*3=852471,285714*3=857142,285750*3=857250,285876*3=857628,285975*3=857925,287586*3=862758,287649*3=862947,288576*3=865728,297585*3=892755,298575*3=895725,306792*3=920376,307692*3=923076,314379*3=943137,320679*3=962037,320769*3=962307}

northwolves

northwolves 发表于 2025-11-20 16:40
{1035*3=3105,2475*3=7425,10035*3=30105,10350*3=31050,12375*3=37125,14247*3=42741,14724*3=44172,237 ...

取【0-9】排列即可：

1. ToString[#]<>"*3="<>ToString[3#]&/@Flatten@Table[Select[FromDigits/@Select[Permutations[Range[0,9],{n}],First@#!=0&&Mod[Total@#,3]==0&],#<10^n/3&&DigitCount[#]==DigitCount[3 #]&],{n,6}]

复制代码

{1035*3=3105,2475*3=7425,12375*3=37125,23751*3=71253,24750*3=74250,24876*3=74628,24975*3=74925,102375*3=307125,103428*3=310284,107235*3=321705,123507*3=370521,123750*3=371250,123876*3=371628,123975*3=371925,128034*3=384102,138456*3=415368,138546*3=415638,142857*3=428571,143856*3=431568,145386*3=436158,153846*3=461538,154386*3=463158,157284*3=471852,158427*3=475281,189657*3=568971,196587*3=589761,206793*3=620379,207693*3=623079,230679*3=692037,230769*3=692307,235071*3=705213,235107*3=705321,237501*3=712503,237510*3=712530,238761*3=716283,239751*3=719253,248760*3=746280,248976*3=746928,249750*3=749250,249876*3=749628,271584*3=814752,276489*3=829467,280341*3=841023,281034*3=843102,284157*3=852471,285714*3=857142,287649*3=862947,306792*3=920376,307692*3=923076,320679*3=962037,320769*3=962307}

northwolves

或者使用sort

1. ToString[#]<>"*3="<>ToString[3#]&/@Flatten@Table[Select[FromDigits/@Select[Permutations[Range[0,9],{n}],First@#!=0&&Mod[Total@#,3]==0&],#<10^n/3&&Sort[IntegerDigits[#]]==Sort[IntegerDigits[3#]]&],{n,6}]

复制代码