A106764 Primes with digit sum = 26.

1889, 1979, 1997, 2699, 2789, 2879, 2897, 2969, 3779, 3797, 4679, 4787, 4877, 4967, 5399, 5669, 5849, 5867, 5939, 6299, 6389, 6569, 6659, 6857, 6947, 6983, 7487, 7559, 7577, 7649, 7757, 7793, 7829, 7883, 7919, 7937, 8297, 8369, 8387, 8693, 8747, 8783

Offset: 1

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

[p: p in PrimesUpTo(9000) | &+Intseq(p) eq 26]; // Vincenzo Librandi, Jul 08 2014

Mathematica

Select[Prime[Range[1300]],Total[IntegerDigits[#]]==26&]  (* Harvey P. Dale, Feb 14 2011 *)

PARI

select(x->sumdigits(x)==26, primes(1000)) \\ Michel Marcus, Jul 08 2014

Python

a=A107579(p=1889); [next(a) for A107579.%20-%20_M.%20F.%20Hasler"> in range(50)]  # providing optional 1st arg = initial term, to "universal" code in A107579. - _M. F. Hasler, Mar 16 2022