|
Search: id:A069793
|
|
|
| A069793 |
|
Find smallest k such that prime(k) and prime(n+k) use the same digits; sequence gives prime(k). |
|
+0
4
|
|
| 1913, 113, 79, 179, 13, 337, 137, 1039, 37, 139, 619, 1031, 17, 1123, 349, 563, 3617, 1213, 1193, 839, 1129, 617, 1597, 2153, 1021, 173, 127, 571, 241, 3037, 3361, 131, 137, 113, 2141, 359, 1361, 1471, 1031, 1367, 587, 1013, 6337, 251, 2153, 149, 1049
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(1) = 1913 as the next prime 1931 uses the same digits. a(2) = 113 as the next to next prime 131 uses the same digits.
|
|
MATHEMATICA
|
Do[a = {{{0}}}; a = Flatten[ Append[a, Table[{1}, {n}]], 1]; k = 1; While[ a[[1]] != a[[ -1]], a = Drop[a, 1]; k++; a = Append[a, Sort[ IntegerDigits[ Prime[k]]]]]; Print[ Prime[k - n]], {n, 1, 40}]
|
|
CROSSREFS
|
Cf. A069567, A069794, A069795, A069796.
Sequence in context: A078862 A124628 A112947 this_sequence A072274 A069567 A163678
Adjacent sequences: A069790 A069791 A069792 this_sequence A069794 A069795 A069796
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 09 2002
|
|
EXTENSIONS
|
Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2002
|
|
|
Search completed in 0.002 seconds
|
