A106767 Primes with digit sum = 31.

4999, 6997, 7699, 7789, 7879, 8599, 8689, 8779, 8887, 9679, 9697, 9769, 9787, 9859, 9949, 9967, 13999, 15889, 16699, 16879, 16987, 17599, 17959, 17977, 18679, 18787, 18859, 19489, 19597, 19687, 19759, 19777, 19867, 19993, 23899, 24799, 24889

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..7000

Mathematica

Select[Prime[Range[3000]], Total[IntegerDigits[#]]==31&]  (* Harvey P. Dale, Apr 01 2011 *)

Prog

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

Crossrefs

Cf. similar sequences listed in A244918.

Sequence in context: A145540 A031840 A059667 * A157367 A200910 A035901

Adjacent sequences: A106764 A106765 A106766 * A106768 A106769 A106770

Keyword

nonn,base

Author

Zak Seidov, May 16 2005

Status

approved