A106755 Primes p with digital sum equal to 13.

67, 139, 157, 193, 229, 283, 337, 373, 409, 463, 571, 607, 643, 661, 733, 751, 823, 1039, 1093, 1129, 1237, 1291, 1327, 1381, 1453, 1471, 1543, 1723, 1741, 1831, 2029, 2083, 2137, 2281, 2371, 2551, 2713, 2731, 2803, 3019, 3037, 3109, 3163, 3181, 3217, 3253

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..4000

Formula

Intersection of A000040 (primes) and A143164 (digit sum = 13); also equals { p in A000040 | A007953(p) = 13 }. - M. F. Hasler, Mar 09 2022

Mathematica

Select[Prime[Range[100000]], Total[IntegerDigits[#]]==13 &] (* Vincenzo Librandi, Jul 08 2014 *)

Prog

(Magma) [p: p in PrimesUpTo(10000) | &+Intseq(p) eq 13]; // Vincenzo Librandi, Jul 08 2014
(PARI) select( {is_A106755(n)=sumdigits(n)==13&&isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022

Crossrefs

Cf. A000040 (primes), A007953 (sum of digits), A143164 (digit sum = 13).

Cf. A062339 (same for digit sum s = 4), ..., A106754 (s = 11), A106756 (s = 14), and others listed in A244918 (s = 68).

Sequence in context: A044190 A044571 A142097 * A320876 A304383 A238083

Adjacent sequences: A106752 A106753 A106754 * A106756 A106757 A106758

Keyword

nonn,base

Author

Zak Seidov, May 16 2005

Status

approved