fork(1) download
copy 
  1. function s = f988(n)
  2. 	a = factor(n);
  3. 	to_s = @(i, j) {num2str(i) sprintf('%d^%d', i, j)}{1 + (1 < j)};
  4. 	s = strjoin(arrayfun(@(u) {to_s(u, sum(a == u))}, unique(a)), '*');
  5. end
  6. f = @(n) disp(f988(n));
  7. f(28), f(2002), f(216653)
Success #stdin #stdout 0.27s 411968KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2^2*7
2*7*11*13
216653
https://ideone.com/V5luwe
language:
Octave (octave 4.4.1)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!