A106760 Primes with digit sum = 20.
389, 479, 569, 587, 659, 677, 839, 857, 929, 947, 983, 1289, 1487, 1559, 1667, 1847, 1973, 2099, 2297, 2459, 2477, 2549, 2657, 2693, 2729, 2819, 2837, 2909, 2927, 2963, 3089, 3359, 3449, 3467, 3539, 3557, 3593, 3719, 3863, 3881, 3917, 4079, 4259, 4349
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..9000
Crossrefs
Cf. similar sequences listed in A244918.
Programs
-
Magma
[p: p in PrimesUpTo(5000) | &+Intseq(p) eq 20]; // Vincenzo Librandi, Jul 08 2014
-
Mathematica
Select[Prime[Range[2000]], Total[IntegerDigits[#]]==20 &] (* Vincenzo Librandi, Jul 08 2014 *)