login
Primes with digit sum = 19.
5

%I #14 Sep 08 2022 08:45:18

%S 199,379,397,487,577,739,757,829,883,919,937,991,1279,1297,1459,1549,

%T 1567,1657,1693,1747,1783,1873,2089,2179,2269,2287,2377,2467,2539,

%U 2557,2593,2647,2683,2719,2791,2917,2953,2971,3079,3169,3187,3259,3457,3529

%N Primes with digit sum = 19.

%H Vincenzo Librandi, <a href="/A106759/b106759.txt">Table of n, a(n) for n = 1..10000</a>

%p digitsum:= n -> convert(convert(n,base,10),`+`):

%p select(t -> digitsum(t)=19 and isprime(t), [seq(6*n+1,n=1..10000)]); # _Robert Israel_, Jul 08 2014

%t Select[Prime[Range[500]],Total[IntegerDigits[#]]==19&] (* _Harvey P. Dale_, Mar 11 2011 *)

%o (Magma) [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 19]; // _Vincenzo Librandi_, Jul 08 2014

%Y Cf. similar sequences listed in A244918.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 16 2005