%I #10 Apr 03 2023 10:36:11
%S 2,3,5,7,11,23,41,43,61,101,113,131,151,223,241,311,313,331,401,421,
%T 601,1013,1031,1033,1051,1103,1123,1213,1231,1301,1303,1321,2003,2111,
%U 2113,2131,2203,2221,2311,3011,3121,3301,4001,4003,4021,4111,4201,5011,5101
%N Primes whose digit sum is a single-digit prime.
%H Chris Caldwell, <a href="https://t5k.org/lists/small/1000.txt">The First 1,000 Primes</a>
%e The digit sum of the prime 421 is 7, which is a single-digit prime.
%t okQ[n_]:=Module[{ans=Plus@@IntegerDigits[n]},ans<10&&PrimeQ[ans]]; Select[Prime[Range[1000]], okQ] (* _Harvey P. Dale_, May 27 2009 *)
%Y Cf. A159251.
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Mar 14 2009
%E More terms from _Harvey P. Dale_, May 27 2009