I think this one is a little faster and leaner, but was harder for me to construct.
10 {. n #~ (-: |.)&(":@(* 9+])"0) n=: >:i.12000
--
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
