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

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

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

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

PARI

select(x->sumdigits(x)==34, primes(5000)) \\ Michel Marcus, Jul 08 2014