%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