A106763 Primes with digit sum = 25.

997, 1699, 1789, 1879, 1987, 2689, 2797, 2887, 3499, 3697, 3769, 3877, 3967, 4597, 4759, 4957, 4993, 5479, 5569, 5659, 5749, 5839, 5857, 6199, 6379, 6397, 6469, 6577, 6793, 6829, 6883, 6991, 7297, 7369, 7459, 7477, 7549, 7639, 7873, 7927, 7963, 8089

Offset: 1

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

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

Mathematica

Select[Prime[Range[10000]], Total[IntegerDigits[#]]==25 &] (* Vincenzo Librandi, Jul 08 2014 *)

PARI

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