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 - The Fusion of Science and Community**

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

Loading...

Similar Threads - Mathematica Combining statements | Date |
---|---|

Mathematica Cannot do the integral of the Hyper-geometric function? | Mar 11, 2018 |

Mathematica Cannot Plot This Function in Mathematica | Feb 26, 2018 |

Mathematica , Combining 2D and 3D plots | Aug 11, 2011 |

[Mathematica] Combining several Graphics in a Graphics3D | May 8, 2011 |

Combine ListPlot and ErrorListPlot in Mathematica? | Mar 31, 2011 |

**Physics Forums - The Fusion of Science and Community**