|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
All terms = 11 mod 18.
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|