(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)));
(println (map s [1 2 3 4 10 11 15]))
KGRlZm4gc1tuXShudGgoZmlsdGVyKGZuW3hdKGlmKC5jb250YWlucyhzdHIgeCkoc3RyIG4pKShub3QtYW55PyAjKD0obW9kIHggJSkwKShyYW5nZSAyIHgpKSkpKGRyb3AgMihyYW5nZSkpKShkZWMgbikpKTsKCihwcmludGxuIChtYXAgcyBbMSAyIDMgNCAxMCAxMSAxNV0pKQ==