|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|