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

Author

Patrick De Geest, May 15 1999

Keywords

• nonn
• base
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..10000
• C. Rivera, See also Carlos Rivera's Puzzle Site.

Crossrefs

Cf. A000396, A048518.

Programs

Mathematica

Select[Prime[Range[20000]], Total[IntegerDigits[#]] == 28 &] (* Vincenzo Librandi, Apr 22 2014 *)

Extensions

Checked by Zak Seidov, Mar 26 2006