login
A048517
Primes whose sum of digits is the perfect number 28.
5
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,1
LINKS
C. Rivera, See also Carlos Rivera's Puzzle Site.
MATHEMATICA
Select[Prime[Range[20000]], Total[IntegerDigits[#]] == 28 &] (* Vincenzo Librandi, Apr 22 2014 *)
CROSSREFS
Sequence in context: A167292 A230202 A037029 * A048518 A043416 A125680
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, May 15 1999
EXTENSIONS
Checked by Zak Seidov, Mar 26 2006
STATUS
approved