|
Search: id:A089824
|
|
|
| A089824 |
|
Primes p such that the next prime after p can be obtained from p by adding the sum of the digits of p. |
|
+0
1
|
|
| 11, 13, 101, 103, 181, 293, 631, 701, 811, 1153, 1171, 1409, 1801, 1933, 2017, 2039, 2053, 2143, 2213, 2521, 2633, 3041, 3089, 3221, 3373, 3391, 3469, 3643, 3739, 4057, 4231, 5153, 5281, 5333, 5449, 5623, 5717, 6053, 6121, 6301, 7043, 7333
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
1. I call these primes (additive) "pointer primes", in the sense that such primes p "point" to the next prime after p when the sum of the digits of p is added to p.
|
|
EXAMPLE
|
13 + sum of digits of 13 = 17, which is the next prime after 13. Hence 13 belongs to the sequence.
|
|
MATHEMATICA
|
r = {}; Do[p = Prime[i]; q = Prime[i + 1]; If[p + Apply[Plus, IntegerDigits[p]] == q, r = Append[r, p]], {i, 1, 10^6}]; r
|
|
CROSSREFS
|
Sequence in context: A056446 A023317 A056436 this_sequence A086549 A108090 A136296
Adjacent sequences: A089821 A089822 A089823 this_sequence A089825 A089826 A089827
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 09 2004
|
|
|
Search completed in 0.002 seconds
|
