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,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..10000

C. Rivera, See also Carlos Rivera's Puzzle Site.

Mathematica

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

Crossrefs

Cf. A000396, A048518.

Sequence in context: A167292 A230202 A037029 * A048518 A043416 A125680

Adjacent sequences: A048514 A048515 A048516 * A048518 A048519 A048520

Keyword

nonn,base,easy

Author

Patrick De Geest, May 15 1999

Extensions

Checked by Zak Seidov, Mar 26 2006

Status

approved