[Mathematica] Combining statements

  • Context: Mathematica 
  • Thread starter Thread starter martix
  • Start date Start date
  • Tags Tags
    Mathematica
Join the discussion
Registration is free. Ask a follow-up in this thread, or start your own.
2 replies · 2K views
martix
Messages
167
Reaction score
5
FromDigits /@ Permutations[Range[9], {4}]

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 news on Phys.org
Indeed it should :) Thanks.
Minor mistake:
MapThread[Power, Transpose [FactorInteger[#]]]& /@ (FromDigits /@ Permutations[Range[9], {4}])