This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A052019 #12 Oct 17 2019 22:31:33
%S A052019 2,3,5,7,109,139,149,179,199,911,919,1009,1063,1109,1163,1181,1327,
%T A052019 1381,1409,1427,1481,1609,1627,1663,1709,1811,2099,2137,2399,2699,
%U A052019 2711,2713,2719,2999,3613,3617,4513,4517,4519,5413,5417,5419,6113,6133,6143
%N A052019 Sum of digits of prime p is substring of p.
%t A052019 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 A052019 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 A052019 Cf. A052018, A052020, A052021, A052022, A007953, A005349, A028834 & A158473.
%K A052019 nonn,base
%O A052019 1,1
%A A052019 _Patrick De Geest_, Nov 15 1999