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

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

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

Mathematica

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

PARI

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