Moin moin,
da Mr S Wolfram über multiway computations nachdenkt, hier die Wege zu 2024:
ListPlot[
ReIm[FoldList[Times, #]] & /@
Permutations[
Flatten[ConstantArray @@@
FactorInteger[2024, GaussianIntegers -> True]]
], PlotRange -> All, Frame -> True, FrameTicks -> All,
Joined -> True, PlotTheme -> "Marketing"]
interessant ist die Zahl 2020 (vgl. das Bildchen im Anhang),
Man probiere 2021 nicht wg.
In[4]:= FactorInteger[2021, GaussianIntegers -> True]
Out[4]= {{43, 1}, {47, 1}}
Mit den besten Grüssen
Udo.
waysTo2020.png
Description: PNG image
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
