3 lines
138 B
Text
3 lines
138 B
Text
ClearAll[AdditivePrimeQ]
|
|
AdditivePrimeQ[n_Integer] := PrimeQ[n] \[And] PrimeQ[Total[IntegerDigits[n]]]
|
|
Select[Range[500], AdditivePrimeQ]
|