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