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-9 of 9 results.

A069606 a(1) = 4; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

4, 1, 9, 11, 19, 3, 3, 41, 51, 51, 87, 19, 63, 23, 13, 29, 3, 219, 183, 27, 27, 3, 3, 27, 217, 129, 381, 59, 163, 281, 169, 57, 77, 31, 9, 9, 243, 147, 21, 239, 39, 219, 693, 37, 143, 789, 9, 163, 219, 497, 51, 301, 149, 103, 117, 309, 591, 159, 741, 131, 541, 1377, 207
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(5) = 19 and the number 4191119 is a prime.

Crossrefs

Cf. A069602, A069604, A046254, A074340, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    a[1] = 4; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}] (* Robert G. Wilson v, Aug 05 2005 *)
nxt[{jxt_,a_}]:=Module[{n=1},While[CompositeQ[jxt*10^IntegerLength[n]+n],n++];{jxt*10^IntegerLength[ n]+n,n}]; NestList[nxt,{4,4},70][[;;,2]] (* Harvey P. Dale, Oct 06 2023 *)

Extensions

More terms from Jason Earls, Jun 13 2002

A069608 a(1) = 6; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

6, 1, 3, 1, 41, 19, 17, 1, 81, 27, 89, 3, 79, 29, 1, 111, 29, 13, 119, 207, 21, 33, 19, 413, 49, 71, 183, 223, 153, 21, 261, 369, 29, 319, 107, 1, 273, 81, 711, 507, 87, 579, 401, 7, 33, 771, 477, 33, 371, 91, 1559, 357, 297, 9, 177, 523, 77, 103, 167, 199, 143, 199
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(5) = 41 and the number 613141 is a prime.

Links

Crossrefs

Cf. A069602, A069604, A046256, A074342, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    a[1] = 6; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}] (* Robert G. Wilson v, Aug 05 2005 *)
  • Python
    from sympy import isprime
def aupton(terms):
  alst, astr = [6], "6"
  for n in range(2, terms+1):
    an = 1
    while not isprime(int(astr+str(an))): an += 1
    alst, astr = alst + [an], astr + str(an)
  return alst
print(aupton(62)) # Michael S. Branicky, Jun 01 2021

Extensions

More terms from Jason Earls, Jun 13 2002

A069611 a(1) = 9; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

9, 7, 1, 9, 17, 13, 33, 23, 7, 77, 31, 59, 51, 27, 7, 269, 439, 11, 429, 163, 39, 11, 463, 77, 63, 39, 33, 93, 21, 139, 53, 159, 49, 9, 291, 111, 21, 23, 349, 83, 3, 37, 11, 57, 21, 219, 507, 1233, 429, 147, 627, 127, 399, 27, 63, 423, 111, 633, 1391, 297, 831, 283
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(5) = 17 and the number 971917 is a prime.

Crossrefs

Cf. A069602, A069604, A046259, A074345, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    a[1] = 9; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}] (* Robert G. Wilson v, Aug 05 2005 *)

Extensions

More terms from Jason Earls, Jun 13 2002

A069607 a(1) = 5; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

5, 3, 23, 1, 3, 9, 21, 9, 21, 23, 43, 3, 23, 7, 21, 89, 37, 21, 137, 1, 119, 493, 143, 133, 483, 267, 179, 7, 333, 359, 439, 101, 33, 31, 533, 19, 63, 39, 333, 839, 63, 693, 423, 327, 73, 29, 39, 21, 517, 27, 99, 251, 7, 411, 243, 33, 149, 49, 227, 283, 303, 351, 303
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(5) = 3 and the number 532313 is a prime.

Links

Crossrefs

Cf. A069602, A069604, A046255, A074341, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    a[1] = 5; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}] (* Robert G. Wilson v, Aug 05 2005 *)
  • Python
    from sympy import isprime
def aupton(terms):
  astr, alst = '5', [5]
  for n in range(2, terms+1):
    an = 1
    while not isprime(int(astr + str(an))): an += 1
    astr, alst = astr + str(an), alst + [an]
  return alst
print(aupton(63)) # Michael S. Branicky, May 03 2021

Extensions

More terms from Jason Earls, Jun 13 2002

A069609 a(1) = 7; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

7, 1, 9, 3, 3, 3, 17, 7, 11, 37, 11, 9, 31, 9, 17, 13, 93, 3, 167, 67, 119, 93, 31, 33, 143, 99, 297, 91, 69, 83, 1, 33, 23, 27, 199, 333, 123, 549, 17, 67, 141, 33, 39, 167, 21, 217, 279, 419, 69, 517, 71, 451, 171, 39, 191, 93, 43, 11, 303, 777, 33, 67, 207, 369, 489
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(7) = 17 and the number 71933317 is a prime.

Links

Crossrefs

Cf. A069602, A069604, A046257, A074343, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    a[1] = 7; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 67}] (* Robert G. Wilson v, Aug 05 2005 *)
nxt[{j_,a_}]:=Module[{k=1},While[CompositeQ[j*10^IntegerLength[k]+k],k++];{j*10^IntegerLength[k]+k,k}]; NestList[nxt,{7,7},70][[All,2]] (* Harvey P. Dale, May 06 2022 *)

Extensions

More terms from Jason Earls, Jun 13 2002

A033680 a(1) = 1; a(n) is smallest number >= a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

1, 1, 3, 11, 13, 29, 39, 49, 83, 141, 247, 273, 291, 347, 373, 401, 441, 567, 571, 651, 903, 957, 1001, 1129, 1401, 1457, 1467, 1561, 1889, 2083, 2169, 2523, 2717, 2743, 3447, 3509, 3711, 4087, 4899, 4983, 5087, 5151, 5263, 5429, 5551, 6017, 7389, 7839
Offset: 1

Views

Author

N. J. A. Sloane

Keywords

Links

Crossrefs

Cf. A074336, A092528, A069602, A033679, A033681, A046254, A046255, A046256, A046257, A046258, A046259, A111524.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 48}] (* Robert G. Wilson v *)
nxt[{c_,a_}]:=Module[{x=a},While[!PrimeQ[FromDigits[Join[c,IntegerDigits[ x]]]],x+=2];{Join[c,IntegerDigits[x]],x}]; NestList[nxt,{{1},1},50][[All,2]] (* Harvey P. Dale, Sep 14 2018 *)

Extensions

More terms from Patrick De Geest, May 15 1998
More terms from Robert G. Wilson v, Aug 05 2005

A074336 a(1) = 1; a(n) is smallest number > a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

1, 3, 7, 11, 13, 29, 37, 113, 121, 149, 151, 201, 219, 251, 451, 453, 573, 669, 689, 697, 749, 913, 969, 1157, 1269, 1503, 1531, 1809, 2087, 2163, 2179, 2511, 2537, 2599, 2709, 2789, 2929, 3243, 3989, 4033, 4151, 5019, 5389, 5423, 5599, 6179, 6433, 8267
Offset: 1

Views

Author

Zak Seidov, Sep 23 2002

Keywords

Links

Crossrefs

Cf. A033680, A092528, A069602, A074338, A074339, A074340, A074341, A074342, A074343, A074344, A074345, A074346.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1] + 1 + Mod[a[n - 1], 2], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 48}] (* Robert G. Wilson v *)
nxt[{j_,a_}]:=Module[{k=a+1},While[!PrimeQ[j*10^IntegerLength[k]+k],k++];{j*10^ IntegerLength[ k]+k,k}]; NestList[nxt,{1,1},50][[;;,2]] (* Harvey P. Dale, Sep 10 2024 *)

Extensions

More terms from Robert G. Wilson v, Aug 05 2005

A092528 a(1) = 1; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.

Original entry on oeis.org

1, 1, 3, 11, 1, 3, 3, 53, 13, 39, 9, 3, 21, 53, 79, 11, 19, 59, 27, 49, 21, 23, 211, 153, 189, 3, 161, 121, 167, 183, 193, 77, 21, 349, 107, 129, 343, 119, 241, 143, 37, 77, 31, 159, 183, 531, 1517, 7, 59, 159, 123, 9, 1513, 203, 343, 59, 9, 999, 813, 421, 209, 517, 3
Offset: 1

Views

Author

Christer Mauritz Blomqvist (MauritzTortoise(AT)hotmail.com), Apr 08 2004

Keywords

Examples

			The first few terms are 1,1,3,11,1,3,3,53,13,39,9,3. The next integer you can concatenate to the end of this to get a prime is 21 so the next term is 21. If you require terms to have all digits odd you would get 399 instead, giving A069604.

Crossrefs

Cf. A033680, A074336, A069602, A069604, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.

Programs

  • Mathematica
    nn[a_] := For[b = 1, ! PrimeQ[n], b = b + 1, n = a*10^Floor[Log[10, b] + 1]] (* o get the next number in the sequence if a is the concatenation of all previous. *) nnt[m_] := (t = 1; Table[c = nnn[t]; t = c[[2]]; c[[1]], {m}]) (* To get a table of the first n terms, ignoring a(1)=1*)
a[1] = 1; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}] (* Robert G. Wilson v, Aug 05 2005 *)

A069604 a(1) = 1; for n>1, a(n) = smallest number with all odd digits giving a prime in concatenation with the previous terms.

Original entry on oeis.org

1, 1, 3, 11, 1, 3, 3, 53, 13, 39, 9, 3, 399, 11, 9, 133, 3, 11, 51, 111, 13, 53, 31, 3, 173, 1, 317, 519, 579, 1, 573, 357, 5111, 39, 51, 73, 3317, 1977, 5173, 579, 357, 359, 9, 57, 3991, 959, 951, 7, 111, 1959, 39, 191, 3357, 3151, 3137, 577, 117, 1353, 951, 153, 99
Offset: 1

Views

Author

Amarnath Murthy, Mar 26 2002

Keywords

Examples

			a(5) = 1 and the number 113111 is a prime.

Crossrefs

Cf. A033680, A074336, A092528, A069602.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ Union[ Mod[ IntegerDigits[k], 2]] != {1} || !PrimeQ[ FromDigits[ Join[ Flatten[c], IntegerDigits[k]]]], k = k + 1]; k]; Table[ a[n], {n, 61}] (* corrected by Jason Yuen, Jun 22 2025 *)

Extensions

Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Mar 30 2003
Showing 1-9 of 9 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.