A106807 Primes with digit sum = 67.

59899999, 69899899, 69899989, 69979999, 69997999, 69999799, 77899999, 78997999, 78998989, 78999889, 78999979, 79699999, 79879999, 79889899, 79979899, 79979989, 79988899, 79989979, 79996999, 79997899, 79997989

Offset: 1

Author

Zak Seidov, May 18 2005

Keywords

• nonn
• base

Comments

499999909 is the smallest term that contains 0 as a digit. - Altug Alkan, Mar 25 2018

Links

• Robert Israel, Table of n, a(n) for n = 1..10000 (first 128 terms from Vincenzo Librandi)

Crossrefs

Cf. A007605, A062339, A062341, A062343, A106754 - A106787, A107617, A107618.

Cf. similar sequences listed in A244018.

Programs

Magma

[p: p in PrimesUpTo(90000000) | &+Intseq(p) eq 67]; // Vincenzo Librandi, Jul 09 2014

Maple

F:= proc(t,d)
  if d = 1 then
     if t<=9 then return [t] else return [] fi
  fi;
  if t > 9*d then return [] fi;
  [seq(op(map(x -> a*10^(d-1)+x, procname(t-a,d-1))), a=0..min(9,t))]
end proc:
select(isprime, F(67,8)); # Robert Israel, Mar 25 2018

Mathematica

Select[Prime[Range[600000]], Total[IntegerDigits[#]]==67 &] (* Vincenzo Librandi, Jul 09 2014 *)

PARI

isok(n) = isprime(n) && (sumdigits(n) == 67); \\ Altug Alkan, Mar 25 2018