%I #15 Sep 08 2022 08:45:18
%S 8989999,8999899,9989899,9999889,16999999,17989999,17999899,18889999,
%T 18899899,18899989,18979999,18989899,18998899,18999889,18999979,
%U 18999997,19889899,19899889,19979899,19987999,19988989,19989997,19999789,19999897,26998999,27799999
%N Primes with digit sum = 61.
%H Vincenzo Librandi, <a href="/A106787/b106787.txt">Table of n, a(n) for n = 1..3960</a>
%t Select[Prime[Range[3000000]], Total[IntegerDigits[#]]==61 &] (* _Vincenzo Librandi_, Jul 09 2014 *)
%o (PARI) isok(n) = isprime(n) && (sumdigits(n) == 61); \\ _Michel Marcus_, Oct 09 2013
%o (Magma) [p: p in PrimesUpTo(30000000) | &+Intseq(p) eq 61]; // _Vincenzo Librandi_, Jul 09 2014
%Y Cf, similar sequences listed in A244918.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 16 2005
%E More terms from _Joshua Zucker_, May 17 2006
%E More terms from _Michel Marcus_, Oct 05 2013