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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. similar sequences listed in A244918.

Sequence in context: A237543 A053086 A377951 * A112451 A235006 A231629

Adjacent sequences: A106778 A106779 A106780 * A106782 A106783 A106784

Keyword

nonn,base

Author

Zak Seidov, May 16 2005

Extensions

More terms from Vincenzo Librandi, Jul 09 2014

Status

approved