|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|