fork download
copy 
  1. (defn s[n](nth(filter(fn[x](if(.contains(str x)(str n))(not-any? #(=(mod x %)0)(range 2 x))))(drop 2(range)))(dec n)));
  2.  
  3. (println (map s [1 2 3 4 10 11 15]))
Success #stdin #stdout 2.1s 335552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(11 23 23 149 1033 1129 1583)
https://ideone.com/ioBJjt
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!