|
Search: id:A128717
|
|
|
| A128717 |
|
Primes that yield another prime if one adds either the sum of its digits or the product of its digits. |
|
+0
1
|
|
| 101, 103, 163, 233, 293, 307, 431, 499, 509, 563, 617, 701, 743, 1009, 1049, 1061, 1087, 1409, 1423, 1483, 1489, 1601, 1607, 1801, 1867, 2017, 2039, 2053, 2273, 2543, 2633, 2903, 3041, 3067, 3089, 3449, 3607, 4013, 4057, 4079, 4211, 4217, 4273, 4507
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
163 + (1+6+3) = 173, 163 + 1*6*3 = 181; 173 and 181 are prime numbers.
|
|
MATHEMATICA
|
Select[Prime[Range[500]], PrimeQ[ # + Plus @@ IntegerDigits[ # ]] && PrimeQ[ # + Times @@ IntegerDigits[ # ]] &]
|
|
CROSSREFS
|
Cf. A048519.
Sequence in context: A119680 A117837 A060400 this_sequence A111348 A081649 A126118
Adjacent sequences: A128714 A128715 A128716 this_sequence A128718 A128719 A128720
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
J. M. Bergot (thekingfishb(AT)yahoo.ca), Jun 27 2007
|
|
EXTENSIONS
|
Edited, corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 14 2007
|
|
|
Search completed in 0.002 seconds
|
