|
%I #11 Mar 10 2022 03:21:54
%S 59,149,167,239,257,293,347,383,419,491,509,563,617,653,743,761,941,
%T 1049,1193,1229,1283,1319,1373,1409,1427,1481,1553,1571,1607,1733,
%U 1823,1913,1931,2039,2129,2237,2273,2309,2381,2417,2543,2633,2741,2903,3083
%N Primes with digit sum = 14.
%C Or primes numbers in A114527. - _Zak Seidov_, May 21 2006
%H Vincenzo Librandi, <a href="/A106756/b106756.txt">Table of n, a(n) for n = 1..5000</a>
%F Intersection of A000040 (primes) and A235225 (digit sum = 14); also equals { p in A000040 | A007953(p) = 14 }. - _M. F. Hasler_, Mar 09 2022
%t Select[Prime[Range[10000]], Total[IntegerDigits[#]]==14 &] (* _Vincenzo Librandi_, Jul 08 2014 *)
%o (Magma) [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 14]; // _Vincenzo Librandi_, Jul 08 2014
%o (PARI) select( {is_A106756(n)= sumdigits(n)==14 && isprime(n)}, primes([1, 3333])) \\ _M. F. Hasler_, Mar 09 2022
%Y Cf. A000040 (primes), A007953 (sum of digits), A235225 (digit sum = 14).
%Y Cf. A062339 (same for digit sum s = 4), A106755 (s = 13), A106757 (s = 16), and others listed in A244918 (s = 68).
%Y Cf. A034690, A086793, A114527.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 16 2005
|
