A052019 Sum of digits of prime p is substring of p.

2, 3, 5, 7, 109, 139, 149, 179, 199, 911, 919, 1009, 1063, 1109, 1163, 1181, 1327, 1381, 1409, 1427, 1481, 1609, 1627, 1663, 1709, 1811, 2099, 2137, 2399, 2699, 2711, 2713, 2719, 2999, 3613, 3617, 4513, 4517, 4519, 5413, 5417, 5419, 6113, 6133, 6143

Offset

1,1

Links

Table of n, a(n) for n=1..45.

Mathematica

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 *)
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 *)

Crossrefs

Cf. A052018, A052020, A052021, A052022, A007953, A005349, A028834 & A158473.

Sequence in context: A030150 A343675 A029977 * A205529 A006341 A086107

Adjacent sequences: A052016 A052017 A052018 * A052020 A052021 A052022

Keyword

nonn,base

Author

Patrick De Geest, Nov 15 1999

Status

approved