fork download
copy 
  1. (print (mapv
  2. 	#(if(= 1 %)1(numerator(nth(distinct(for[i(range)j(range 1(inc i))](/ j i)))(dec %))))
  3. 	(range 1 51)
  4. ))
Success #stdin #stdout 0.73s 335552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1 1 1 2 1 3 1 2 3 4 1 5 1 2 3 4 5 6 1 3 5 7 1 2 4 5 7 8 1 3 7 9 1 2 3 4 5 6 7 8 9 10 1 5 7 11 1 2 3 4]
https://ideone.com/8gNZEB
language:
Clojure (clojure 1.10.0)
created:
7 years ago
visibility:
public

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!