A106767 - OEIS

%I #12 Sep 08 2022 08:45:18

%S 4999,6997,7699,7789,7879,8599,8689,8779,8887,9679,9697,9769,9787,

%T 9859,9949,9967,13999,15889,16699,16879,16987,17599,17959,17977,18679,

%U 18787,18859,19489,19597,19687,19759,19777,19867,19993,23899,24799,24889

%N Primes with digit sum = 31.

%H Vincenzo Librandi, <a href="/A106767/b106767.txt">Table of n, a(n) for n = 1..7000</a>

%t Select[Prime[Range[3000]],Total[IntegerDigits[#]]==31&]  (* _Harvey P. Dale_, Apr 01 2011 *)

%o (Magma) [p: p in PrimesUpTo(30000) | &+Intseq(p) eq 31]; // _Vincenzo Librandi_, Jul 08 2014

%o (PARI) select(x->sumdigits(x)==31, primes(3000)) \\ _Michel Marcus_, Jul 08 2014

%Y Cf. similar sequences listed in A244918.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 16 2005