cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A069796 Prime(n) and prime(n+4) use the same digits.

Original entry on oeis.org

179, 1091, 1213, 1279, 3313, 3637, 4273, 6637, 8237, 8293, 8537, 9137, 9613, 10937, 12071, 14071, 15137, 19237, 19937, 20639, 21013, 22817, 22937, 24091, 24317, 26713, 28439, 29137, 29837, 31379, 32537, 33037, 33071, 35339, 36913, 37117
Offset: 1

Views

Author

Amarnath Murthy, Apr 09 2002

Keywords

Examples

			6637 is a member as the fourth next prime 6673 uses the same digits.

Links

Crossrefs

Cf. A069793, A069567, A069794, A069795.

Programs

  • Mathematica
    p = {0}; q = {1}; r = {1}; s = {1}; t = {1}; Do[ If[p == t, Print[ Prime[n - 5]]]; p = q; q = r; r = s; s = t; t = Sort[ IntegerDigits[ Prime[n]]], {n, 5 10^3}]
Transpose[Select[Partition[Prime[Range[5000]],5,1],Sort[ IntegerDigits[ First[#]]] == Sort[IntegerDigits[Last[#]]]&]][[1]] (* Harvey P. Dale, Dec 26 2015 *)

Extensions

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

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

Original entry on oeis.org

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

Views

Author

Amarnath Murthy, Apr 09 2002

Keywords

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

A069794 Prime(n) and prime(n+2) use the same digits.

Original entry on oeis.org

113, 313, 1579, 2113, 2879, 3779, 4813, 5179, 5237, 5279, 5879, 6113, 6379, 8713, 9091, 9479, 9679, 10313, 10513, 10613, 13313, 13913, 14779, 15013, 17579, 18713, 19213, 20879, 22013, 22091, 22679, 24179, 25037, 25913, 26479, 27179, 28579
Offset: 1

Views

Author

Amarnath Murthy, Apr 09 2002

Keywords

Comments

Prime(n) and prime(n+2) must use the same digits and the same number of repetitions of each digit. - Harvey P. Dale, Apr 26 2015

Examples

			113 is a member as the next to next prime 131 uses the same digits.

Crossrefs

Cf. A069793, A069567, A069795, A069796.

Programs

  • Mathematica
    p = {0}; q = {1}; r = {1}; Do[ If[p == r, Print[ Prime[n - 3]]]; p = q; q = r; r = Sort[ IntegerDigits[ Prime[n]]], {n, 3 10^3}]
sdQ[n_]:=Sort[IntegerDigits[n]]==Sort[IntegerDigits[NextPrime[n,2]]]; Select[Prime[Range[4000]],sdQ] (* Harvey P. Dale, Apr 26 2015 *)

Extensions

Edited, corrected and extended by Robert G. Wilson v, Apr 12 2002
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.