login
Sum of digits of prime p is substring of p.
9

%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