Idiomatic way to get every digit of a number

Question

What's the idiomatic way to get each digit of a number and put them into a sequence?

Currently I'm doing

(map #(Integer/parseInt %) (map str ((comp seq str) 123456)))

, which is somewhat ugly...

Any ideas?

Answer 1

(for [n  (str 123456)] 
     (- (byte n) 48))

Answer 2

 (map #(Character/getNumericValue %) (str 123456))