A048517 Primes whose sum of digits is the perfect number 28.
1999, 3889, 4789, 4969, 4987, 5689, 5779, 5869, 6679, 6949, 6967, 7489, 7669, 7687, 7759, 7867, 7993, 8389, 8677, 8839, 8893, 8929, 9199, 9397, 9649, 9739, 9829, 9883, 9973, 12799, 12889, 12979, 13789, 13879, 14779, 14797, 14869, 14887, 15679
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..10000
- C. Rivera, See also Carlos Rivera's Puzzle Site.
Programs
-
Mathematica
Select[Prime[Range[20000]], Total[IntegerDigits[#]] == 28 &] (* Vincenzo Librandi, Apr 22 2014 *)
Extensions
Checked by Zak Seidov, Mar 26 2006