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.

A080439 a(1) = 11, a(n) is the smallest prime obtained by inserting digits between every pair of digits of a(n-1).

Original entry on oeis.org

11, 101, 10061, 100000651, 10000000000060571, 100000000000000000000000600052761, 10000000000000000000000000000000000000000000000060000000502271641
Offset: 1

Views

Author

Amarnath Murthy, Feb 22 2003

Keywords

Comments

Conjecture: Only one digit needs to be inserted between each pair of digits of a(n-1) to get a(n); i.e., a(n) contains exactly 2n-1 digits for n > 1.
The conjecture above is false: a(5)=10000000000060571 has 17 digits instead of 2*5-1=9. A refined conjecture is: a(n) contains exactly 2^(n-1) + 1 digits for all n>0. This follows trivially by induction from the initial conjecture (above) of only one digit needed between each pair, and the fact that we start with 11, a 2-digit number, and holds true at least till a(12). - Julio Cesar Hernandez-Castro, Jul 05 2011

Examples

			a(2) = 101 and a(3) is obtained by inserting a '0' and a '6' in the two inner spaces of 101: (1,-,0,-,1).
		

Crossrefs

Programs

  • Mathematica
    a[n_] := Block[{d = IntegerDigits[n]}, k = Length[d]; While[k > 1, d = Insert[d, 0, k]; k-- ]; d = FromDigits[d]; e = d; k = 0; While[ !PrimeQ[e], k++; e = d + 10FromDigits[ IntegerDigits[k], 100]]; e]; NestList[a, 11, 6]

Extensions

Edited, corrected and extended by Robert G. Wilson v, Feb 22 2003

A080441 a(1) = 17, a(n) is the smallest prime obtained by inserting digits between every pair of digits of a(n-1).

Original entry on oeis.org

17, 107, 10007, 100000007, 10000000000003037, 100000000000000000000000003000307, 10000000000000000000000000000000000000000000000000003000000030057
Offset: 1

Views

Author

Amarnath Murthy, Feb 22 2003

Keywords

Comments

Conjecture: Only one digit needs to be inserted between each pair of digits of a(n-1) to get a(n); i.e. a(n) contains exactly 2n-1 digits for n > 1.
The conjecture above is false: a(5) = 10000000000003037 has 17 digits instead of 2*5 - 1 = 9. A refined conjecture is: a(n) contains exactly 2^(n-1) + 1 digits for all n > 0. This follows trivially by induction from the initial conjecture above of only one digit needed between each pair, and the fact that we start with 17, a 2-digit number, and holds true at least till a(12).

Crossrefs

Programs

  • Mathematica
    a[n_] := Block[{d = IntegerDigits[n]}, k = Length[d]; While[k > 1, d = Insert[d, 0, k]; k-- ]; d = FromDigits[d]; e = d; k = 0; While[ !PrimeQ[e], k++; e = d + 10FromDigits[ IntegerDigits[k], 100]]; e]; NestList[a, 17, 6]

Extensions

Edited and extended by Robert G. Wilson v, Feb 22 2003

A080442 a(1) = 19, a(n) is the smallest prime obtained by inserting digits between every pair of digits of a(n-1).

Original entry on oeis.org

19, 109, 10009, 100000039, 10000000000002359, 100000000000000000000000002031519, 10000000000000000000000000000000000000000000000000002000301050179
Offset: 1

Views

Author

Amarnath Murthy, Feb 22 2003

Keywords

Comments

Conjecture: Only one digit needs to be inserted between each pair of digit of a(n-1) to get a(n); i.e., a(n) contains exactly 2n-1 digits for n > 1.
The conjecture above is false: a(5) = 10000000000002359 has 17 digits instead of 2*5 - 1 = 9. A refined conjecture is: a(n) contains exactly 2^(n-1) + 1 digits for all n > 0. This follows trivially from the initial conjecture of only one digit needed between each pair, and the fact that we start with 19, a 2-digit number, and holds true at least till a(12). - Julio Cesar Hernandez-Castro, Jul 07 2011

Crossrefs

Programs

  • Mathematica
    a[n_] := Block[{d = IntegerDigits[n]}, k = Length[d]; While[k > 1, d = Insert[d, 0, k]; k-- ]; d = FromDigits[d]; e = d; k = 0; While[ !PrimeQ[e], k++; e = d + 10FromDigits[ IntegerDigits[k], 100]]; e]; NestList[a, 19, 6]

Extensions

Edited and extended by Robert G. Wilson v, Feb 22 2003
Showing 1-3 of 3 results.