According to Futility Closet, if you start with a 3 digit and place it next to the same number to form a 6 digit number, you can divide the 6 digit number by 7, 11, and then 13 and you will end up with the original 3 digit number and no remainders. For example, by taking the number 412 and making it 412412 and then doing the divisions, you will end up with 412. I wrote a small program in Java to test it.
The Code
public class Main
{
public static void main(String[] args)
{
for(int i = 100; i <= 999; i++)
{
//get the number, and "double" it
int number = Integer.parseInt(Integer.toString(i) + Integer.toString(i));
//successively divided by 7, 11, then 13
System.out.print((i) + "t");
System.out.print((number) + "t");
System.out.print((number /= 7) + "t");
System.out.print((number /= 11) + "t");
System.out.print(number /= 13);
//is the result what we expect? (input == output)
if(i == number)
{
System.out.print("tCorrectn");
}
else
{
System.out.print("tIncorrect");
break;
}
}
}
}
In this snippet, we loop through all 3 digit numbers (100 to 999) and output the results of each operation in a tab separated column. If the result (output) is the same as the input, we print correct and continue with the loop. Otherwise, we print incorrect and break. Give it a try!
(filter #(not= %1 (/ (/ (/ (* 1000 %1) 7) 11) 13)) (range 100 1000))
^untested, should do the same thing in clojure.
Whoops. Got my logic backward. Switch the not= with = or filter with remove.