|
|
A118703
|
|
Zero-free primes with digit sum equal to 7.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are exactly 29 such primes the largest one being 112111.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|