- s = Select[Tuples[Divisors@2024, {2}], LCM[#[[1]], #[[2]]] == 2024 &]; {Length@s, s}
复制代码
{63,{{1,2024},{2,2024},{4,2024},{8,253},{8,506},{8,1012},{8,2024},{11,184},{11,2024},{22,184},{22,2024},{23,88},{23,2024},{44,184},{44,2024},{46,88},{46,2024},{88,23},{88,46},{88,92},{88,184},{88,253},{88,506},{88,1012},{88,2024},{92,88},{92,2024},{184,11},{184,22},{184,44},{184,88},{184,253},{184,506},{184,1012},{184,2024},{253,8},{253,88},{253,184},{253,2024},{506,8},{506,88},{506,184},{506,2024},{1012,8},{1012,88},{1012,184},{1012,2024},{2024,1},{2024,2},{2024,4},{2024,8},{2024,11},{2024,22},{2024,23},{2024,44},{2024,46},{2024,88},{2024,92},{2024,184},{2024,253},{2024,506},{2024,1012},{2024,2024}}}
|