Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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