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

%S 389999,399899,399989,489989,497999,498989,499979,578999,587999,

%T 589997,597899,598799,599699,659999,668999,669989,678989,688799,

%U 688889,688979,689699,689789,689879,689987,695999,696989,697979,769799,769997,777989

%N Primes with digit sum = 47.

%C All terms = 11 mod 18.

%H Zak Seidov, <a href="/A106778/b106778.txt">Table of n, a(n) for n = 1..7751</a>

%p select(n -> isprime(n) and convert(convert(n,base,10),`+`) = 47, [seq(18*n+11,n=10^4 .. 10^5)]); # _Robert Israel_, Jul 09 2014

%t Select[Prime[Range[90000]], Total[IntegerDigits[#]]==47 &] (* _Vincenzo Librandi_, Jul 09 2014 *)

%o (Magma) [p: p in PrimesUpTo(800000) | &+Intseq(p) eq 47]; // _Vincenzo Librandi_, Jul 09 2014

%Y Cf. similar sequences listed in A244918.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 16 2005