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

Author

Zak Seidov, May 20 2006

Keywords

• base
• fini
• full
• nonn

Comments

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

Crossrefs

Cf. A062337, A052221, A119461.

Programs

Mathematica

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

PARI

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