A069793 Find smallest k such that prime(k) and prime(n+k) use the same digits; sequence gives prime(k).

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

Offset

0,1

Links

Table of n, a(n) for n=0..47.

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: A113917 A259487 A329663 * A230082 A217372 A160299

Adjacent sequences: A069790 A069791 A069792 * A069794 A069795 A069796

Keyword

base,nonn

Author

Amarnath Murthy, Apr 09 2002

Extensions

Edited, corrected and extended by Robert G. Wilson v, Apr 12 2002

Status

approved