login
A106763
Primes with digit sum = 25.
5
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,1
LINKS
MATHEMATICA
Select[Prime[Range[10000]], Total[IntegerDigits[#]]==25 &] (* Vincenzo Librandi, Jul 08 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(8000) | &+Intseq(p) eq 25]; // Vincenzo Librandi, Jul 08 2014
(PARI) select(x->sumdigits(x)==25, primes(1000)) \\ Michel Marcus, Jul 08 2014
CROSSREFS
Cf. similar sequences listed in A244918.
Sequence in context: A182694 A234847 A057698 * A247122 A091362 A244546
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved