|
%I #7 Sep 08 2022 08:45:18
%S 799999,998989,999979,1789999,1798999,1979899,1989979,1997899,1999969,
%T 2599999,2699989,2797999,2798899,2798989,2878999,2889979,2897989,
%U 2898979,2969899,2979997,2986999,2987989,2989879,2995999,2996899,2997997,3499999,3599899,3679999,3788989,3789889
%N Primes with digit sum = 52.
%H Vincenzo Librandi, <a href="/A106781/b106781.txt">Table of n, a(n) for n = 1..1800</a>
%t Select[Prime[Range[400000]], Total[IntegerDigits[#]]==52 &] (* _Vincenzo Librandi_, Jul 09 2014 *)
%o (Magma) [p: p in PrimesUpTo(3800000) | &+Intseq(p) eq 52]; // _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 _Vincenzo Librandi_, Jul 09 2014
|
