|
|
A106756
|
|
Primes with digit sum = 14.
|
|
6
|
|
|
59, 149, 167, 239, 257, 293, 347, 383, 419, 491, 509, 563, 617, 653, 743, 761, 941, 1049, 1193, 1229, 1283, 1319, 1373, 1409, 1427, 1481, 1553, 1571, 1607, 1733, 1823, 1913, 1931, 2039, 2129, 2237, 2273, 2309, 2381, 2417, 2543, 2633, 2741, 2903, 3083
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Prime[Range[10000]], Total[IntegerDigits[#]]==14 &] (* Vincenzo Librandi, Jul 08 2014 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 14]; // Vincenzo Librandi, Jul 08 2014
(PARI) select( {is_A106756(n)= sumdigits(n)==14 && isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|