A106756 Primes with digit sum = 14.
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
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..5000
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(4000) | &+Intseq(p) eq 14]; // Vincenzo Librandi, Jul 08 2014
-
Mathematica
Select[Prime[Range[10000]], Total[IntegerDigits[#]]==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
Formula
Intersection of A000040 (primes) and A235225 (digit sum = 14); also equals { p in A000040 | A007953(p) = 14 }. - M. F. Hasler, Mar 09 2022
Comments