Problem Statement

In mathematics, additive primes are prime numbers for which the sum of their decimal digits are also primes.

Write a program to determine (and show here) all additive primes less than 500. Optionally, show the number of additive primes.

Let's start with the solution:

  500 eratosthenes
  
  []
  500 times
    [ i^ isprime if
        [ i^ 10 digitsum 
          isprime if
            [ i^ join ] ] ] 
  dup echo cr cr
  size echo say " additive primes found."