A106785 Primes with digit sum = 58.
4999999, 5989999, 6799999, 6899899, 6899989, 6988999, 6998989, 6999799, 6999997, 7879999, 7888999, 7897999, 7898899, 7899979, 7969999, 7988899, 7997989, 7998979, 8789899, 8798989, 8799997, 8878999, 8879989, 8888989
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..2600
Crossrefs
Cf. similar sequences listed in A244918.
Programs
-
Magma
[p: p in PrimesUpTo(9000000) | &+Intseq(p) eq 58]; // Vincenzo Librandi, Jul 09 2014
-
Mathematica
Select[Prime[Range[1000000]], Total[IntegerDigits[#]]==58 &] (* Vincenzo Librandi, Jul 09 2014 *)