A106778 Primes with digit sum = 47.

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

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Comments

All terms = 11 mod 18.

Links

• Zak Seidov, Table of n, a(n) for n = 1..7751

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

[p: p in PrimesUpTo(800000) | &+Intseq(p) eq 47]; // Vincenzo Librandi, Jul 09 2014

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 *)