Skip to main content
added 95 characters in body
Source Link
user202729
  • 17.4k
  • 2
  • 37
  • 70

Mathematica, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case worksI have to implement it manually)

Mathematica, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Mathematica, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. I have to implement it manually)

If it only works in Mathematica, it should be a Mathematica answer
Source Link
totallyhuman
  • 17.3k
  • 3
  • 32
  • 88

MathicsMathematica, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Mathics, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Mathematica, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

deleted 9 characters in body
Source Link
user202729
  • 17.4k
  • 2
  • 37
  • 70

MathematicaMathics, 4235 bytes

Tr[Times@@@FactorInteger@#]&~FixedPoint~#&#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Mathematica, 42 bytes

Tr[Times@@@FactorInteger@#]&~FixedPoint~#&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Mathics, 35 bytes

#//.x_:>Tr[1##&@@@FactorInteger@x]&

Try it online!

(Mathics does not support Tr. Use Tr = Total in this particular case works)

Source Link
user202729
  • 17.4k
  • 2
  • 37
  • 70
Loading