login
Primes with digit sum = 20.
7

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

%S 389,479,569,587,659,677,839,857,929,947,983,1289,1487,1559,1667,1847,

%T 1973,2099,2297,2459,2477,2549,2657,2693,2729,2819,2837,2909,2927,

%U 2963,3089,3359,3449,3467,3539,3557,3593,3719,3863,3881,3917,4079,4259,4349

%N Primes with digit sum = 20.

%H Vincenzo Librandi, <a href="/A106760/b106760.txt">Table of n, a(n) for n = 1..9000</a>

%t Select[Prime[Range[2000]], Total[IntegerDigits[#]]==20 &] (* _Vincenzo Librandi_, Jul 08 2014 *)

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

%Y Cf. similar sequences listed in A244918.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 16 2005