digits =: 10&#.^:_1 isPrime =: 1&p: allPrime =: {{*./isPrime"0 y}}"1 permutations =: {{1=+/~:/:~"1 digits"0 y}}"1 offset =: 3330 count =: 10000-2*offset combs =: (i.3339) +" 0 1 offset * i.3 primeAndPerm =: allPrime *. permutations goodSeq =: ({: I. primeAndPerm combs) + offset * i.3 problem49 =: 10#.,digits"0 goodSeq