A107619 Primes with digit sum = 65.
29999999, 39899999, 39999899, 48999989, 49898999, 49899989, 49979999, 49997999, 57899999, 57998999, 57999899, 58899989, 58989899, 58998899, 59879999, 59898899, 59898989, 59979989, 59987999, 59988989, 59999879
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..460
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(69000000) | &+Intseq(p) eq 65]; // Vincenzo Librandi, Jul 09 2014
-
Mathematica
Select[Prime[Range[600000]], Total[IntegerDigits[#]]==65 &] (* Vincenzo Librandi, Jul 09 2014 *)