A106759 Primes with digit sum = 19.

199, 379, 397, 487, 577, 739, 757, 829, 883, 919, 937, 991, 1279, 1297, 1459, 1549, 1567, 1657, 1693, 1747, 1783, 1873, 2089, 2179, 2269, 2287, 2377, 2467, 2539, 2557, 2593, 2647, 2683, 2719, 2791, 2917, 2953, 2971, 3079, 3169, 3187, 3259, 3457, 3529

Offset: 1

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

[p: p in PrimesUpTo(4000) | &+Intseq(p) eq 19]; // Vincenzo Librandi, Jul 08 2014

Maple

digitsum:= n -> convert(convert(n,base,10),`+`):
select(t -> digitsum(t)=19 and isprime(t), [seq(6*n+1,n=1..10000)]); # Robert Israel, Jul 08 2014

Mathematica

Select[Prime[Range[500]],Total[IntegerDigits[#]]==19&]  (* Harvey P. Dale, Mar 11 2011 *)