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



Task
Write a program to determine (and show here) all additive primes less than 500.

Optionally, show the number of additive primes.



Also see

   the OEIS entry:   A046704 additive primes.
   the prime-numbers entry:   additive primes.
   the geeks for geeks entry: additive prime number.
   the prime-numbers fandom: additive primes.


C :z=2
  :c=0
  :max=500
*number
C :n=z
U :*digsum 
C :n=s
U :*prime
J (p=0):*next
C :n=z
U :*prime
J (p=0):*next
T :#z
C :c=c+1
*next
C :z=z+1
J (z<max):*number
T :There are #c additive primes below #max
E :
 
*prime
C :p=1
E (n<4):
C :p=0
E (n=2*(n/2)):
C :i=3
  :m=n/2
*ptest
E (n=i*(n/i)):
C :i=i+2
J (i<=m):*ptest
C :p=1
E :
 
*digsum
C :s=0
  :i=n
*digit
C :j=i/10
  :s=s+(i-j*10)
  :i=j
J (i>0):*digit
E :