range =: 100 }. i. 1000
uniq_prods =: ~. @: , @: (*/~)
palindrome =: (-: |."1) @ (":"0)
>./ (#~ palindrome) uniq_prods range


>./ ( palindrome # ] ) ~. , */~ range