login
A106759
Primes with digit sum = 19.
5
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved