%I #20 Mar 16 2022 16:39:37
%S 1889,1979,1997,2699,2789,2879,2897,2969,3779,3797,4679,4787,4877,
%T 4967,5399,5669,5849,5867,5939,6299,6389,6569,6659,6857,6947,6983,
%U 7487,7559,7577,7649,7757,7793,7829,7883,7919,7937,8297,8369,8387,8693,8747,8783
%N Primes with digit sum = 26.
%H Vincenzo Librandi, <a href="/A106764/b106764.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1300]],Total[IntegerDigits[#]]==26&] (* _Harvey P. Dale_, Feb 14 2011 *)
%o (Magma) [p: p in PrimesUpTo(9000) | &+Intseq(p) eq 26]; // _Vincenzo Librandi_, Jul 08 2014
%o (PARI) select(x->sumdigits(x)==26, primes(1000)) \\ _Michel Marcus_, Jul 08 2014
%o (Python)
%o a=A107579(p=1889); [next(a) for _ in range(50)] # providing optional 1st arg = initial term, to "universal" code in A107579. - _M. F. Hasler_, Mar 16 2022
%Y Cf. similar sequences listed in A244918.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 16 2005
|