A106781 Primes with digit sum = 52.

799999, 998989, 999979, 1789999, 1798999, 1979899, 1989979, 1997899, 1999969, 2599999, 2699989, 2797999, 2798899, 2798989, 2878999, 2889979, 2897989, 2898979, 2969899, 2979997, 2986999, 2987989, 2989879, 2995999, 2996899, 2997997, 3499999, 3599899, 3679999, 3788989, 3789889

Offset: 1

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1800

Crossrefs

Cf. similar sequences listed in A244918.

Programs

Magma

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

Mathematica

Select[Prime[Range[400000]], Total[IntegerDigits[#]]==52 &] (* Vincenzo Librandi, Jul 09 2014 *)

Extensions

More terms from Vincenzo Librandi, Jul 09 2014