login
Primes with digit sum = 61.
9

%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