login
A106778
Primes with digit sum = 47.
4
389999, 399899, 399989, 489989, 497999, 498989, 499979, 578999, 587999, 589997, 597899, 598799, 599699, 659999, 668999, 669989, 678989, 688799, 688889, 688979, 689699, 689789, 689879, 689987, 695999, 696989, 697979, 769799, 769997, 777989
OFFSET
1,1
COMMENTS
All terms = 11 mod 18.
MAPLE
select(n -> isprime(n) and convert(convert(n, base, 10), `+`) = 47, [seq(18*n+11, n=10^4 .. 10^5)]); # Robert Israel, Jul 09 2014
MATHEMATICA
Select[Prime[Range[90000]], Total[IntegerDigits[#]]==47 &] (* Vincenzo Librandi, Jul 09 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(800000) | &+Intseq(p) eq 47]; // Vincenzo Librandi, Jul 09 2014
CROSSREFS
Cf. similar sequences listed in A244918.
Sequence in context: A157739 A233491 A319505 * A164987 A176765 A290499
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved