A118703 Zero-free primes with digit sum equal to 7.

7, 43, 61, 151, 223, 241, 313, 331, 421, 1123, 1213, 1231, 1321, 2113, 2131, 2221, 2311, 3121, 4111, 11113, 11131, 11311, 12211, 21121, 21211, 22111, 111121, 111211, 112111

Offset

1,1

Comments

There are exactly 29 such primes the largest one being 112111.

Links

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

Mathematica

Select[Prime[Range[11000]], DigitCount[#, 10, 0]==0&&Total[ IntegerDigits[ #]] == 7&] (* Harvey P. Dale, Dec 04 2020 *)

Prog

(PARI) isok(n) = isprime(n) && (sumdigits(n) == 7) && (vecmin(digits(n)) != 0); \\ Michel Marcus, Oct 10 2013

Crossrefs

Cf. A052221, A119461.

Sequence in context: A061241 A062337 A176252 * A139832 A139848 A052029

Adjacent sequences: A118700 A118701 A118702 * A118704 A118705 A118706

Keyword

base,fini,full,nonn

Author

Zak Seidov, May 20 2006

Status

approved