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,1

Links

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

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 *)

Prog

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

Crossrefs

Cf. similar sequences listed in A244918.

Sequence in context: A142123 A046006 A147262 * A004926 A004946 A157955

Adjacent sequences: A106756 A106757 A106758 * A106760 A106761 A106762

Keyword

nonn,base

Author

Zak Seidov, May 16 2005

Status

approved