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

Author

Amarnath Murthy, Apr 09 2002

Keywords

• base
• nonn

Examples

			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.
		

Crossrefs

Cf. A069567, A069794, A069795, A069796.

Programs

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}]

Extensions

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