|
| |
|
|
A048519
|
|
Prime plus its digit sum equals a prime.
|
|
9
| |
|
|
11, 13, 19, 37, 53, 59, 71, 73, 97, 101, 103, 127, 149, 163, 167, 181, 233, 257, 271, 277, 293, 307, 367, 383, 389, 419, 431, 433, 479, 499, 509, 547, 563, 587, 617, 631, 701, 727, 743, 787, 811, 839, 857, 859, 947, 1009, 1049, 1061, 1087, 1153, 1171
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harvey P. Dale, Table of n, a(n) for n = 1..1000
|
|
|
EXAMPLE
| E.g. a(9) = prime 97 because 97 + sum-of-digits(97) = 97 + 16 = 113 also a prime.
|
|
|
MAPLE
| P:=proc(n) local i, j, k, w; for i from 1 by 1 to n do w:=0; k:=ithprime(i); j:=k; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; if isprime(j+w) then print(j); fi; od; end: P(1000); [From Paolo P. Lava (paoloplava(AT)gmail.com), Mar 02 2009]
|
|
|
MATHEMATICA
| Select[Prime[Range[500]], PrimeQ[#+Total[IntegerDigits[#]]]&] (* From Harvey P. Dale, Oct 03 2011 *)
|
|
|
CROSSREFS
| Cf. A007953, A047791, A048520.
Sequence in context: A145482 A167497 A068579 * A102907 A089774 A192931
Adjacent sequences: A048516 A048517 A048518 * A048520 A048521 A048522
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), May 15 1999.
|
| |
|
|
