login
A106767
Primes with digit sum = 31.
3
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved