FromDigits /@ Permutations[Range[9], {4}](adsbygoogle = window.adsbygoogle || []).push({});

MapThread[Power, Transpose [FactorInteger[1234]]]

MapThread[Power, Transpose [FactorInteger[#]]] &[FromDigits /@ Permutations[Range[9], {4}]]

Expression 1 and 2 work, so why not 3???

General goal:

Find the factors of all permutations of the digits 1-9 with length 4(with the factors raised to their respective powers).

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# [Mathematica] Combining statements

**Physics Forums | Science Articles, Homework Help, Discussion**