500 eratosthenes

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