%I #12 Oct 17 2019 22:31:33
%S 2,3,5,7,109,139,149,179,199,911,919,1009,1063,1109,1163,1181,1327,
%T 1381,1409,1427,1481,1609,1627,1663,1709,1811,2099,2137,2399,2699,
%U 2711,2713,2719,2999,3613,3617,4513,4517,4519,5413,5417,5419,6113,6133,6143
%N Sum of digits of prime p is substring of p.
%t fQ[n_] := Block[ {id = IntegerDigits@ n}, pid = Plus @@ id; MemberQ[ Partition[id, IntegerLength@ pid, 1], IntegerDigits@ pid]]; Select[ Prime@ Range@ 802, fQ] (* _Robert G. Wilson v_, Aug 16 2011 *)
%t Select[Prime[Range[1000]],SequenceCount[IntegerDigits[#], IntegerDigits[ Total[ IntegerDigits[ #]]]]> 0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, Sep 30 2015 *)
%Y Cf. A052018, A052020, A052021, A052022, A007953, A005349, A028834 & A158473.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Nov 15 1999