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

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)

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

Prog

(Magma) [p: p in PrimesUpTo(90000000) | &+Intseq(p) eq 67]; // Vincenzo Librandi, Jul 09 2014
(PARI) isok(n) = isprime(n) && (sumdigits(n) == 67); \\ Altug Alkan, Mar 25 2018

Crossrefs

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

Cf. similar sequences listed in A244018.

Sequence in context: A238355 A104329 A104333 * A213354 A186908 A244918

Adjacent sequences: A106804 A106805 A106806 * A106808 A106809 A106810

Keyword

nonn,base

Author

Zak Seidov, May 18 2005

Status

approved