A106769 Primes with digit sum = 34.

17989, 18979, 19699, 25999, 27799, 27997, 28789, 28879, 29599, 29959, 35899, 36979, 36997, 37699, 37879, 37897, 37987, 38959, 38977, 39499, 39679, 39769, 39877, 45979, 47599, 47779, 47797, 47869, 47977, 48589, 48679, 48787, 48859

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

dmax:= 6; # to get all entries with at most dmax digits
for s from 0 to 9 do S[1, s]:= {s} od:
for s from 10 to 34 do S[1, s]:= {} od:
for d from 2 to dmax-1 do
  for s from 0 to 34 do
     S[d, s]:= `union`(seq(map(t-> 10*t+x, S[d-1, s-x]), x=0 .. min(s, 9)))
  od
od:
S[dmax, 34]:= `union`(seq(map(t->10*t+x, S[dmax-1, 34-x]), x=0..9)):
A106769:= select(isprime, S[dmax, 34]); # Robert Israel, Jun 03 2014

Mathematica

Select[Prime[Range[50000]], Total[IntegerDigits[#]]==34 &] (* Vincenzo Librandi, Jul 08 2014 *)

Prog

(Magma) [p: p in PrimesUpTo(50000) | &+Intseq(p) eq 34]; // Vincenzo Librandi, Jul 08 2014
(PARI) select(x->sumdigits(x)==34, primes(5000)) \\ Michel Marcus, Jul 08 2014

Crossrefs

Cf. similar sequences listed in A244918.

Sequence in context: A345585 A345842 A031641 * A224571 A251832 A250639

Adjacent sequences: A106766 A106767 A106768 * A106770 A106771 A106772

Keyword

nonn,base

Author

Zak Seidov, May 16 2005

Status

approved