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

A119964 Numerator of the n-th Artin product.

Original entry on oeis.org

1, 5, 19, 779, 84911, 2632241, 713337311, 1163866139, 587752400195, 476667196558145, 2856927907113011, 345688276760674331, 13819099649042566549, 4988694973304366524189, 10780569837310736058772429
Offset: 1

Views

Author

Alexander Adamchuk, Aug 03 2006

Keywords

Comments

Artin's constant (A005596) is equal to Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,Infinity}]. n-th Artin product is Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}].

Crossrefs

Programs

  • Mathematica
    Table[Numerator[Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}]],{n,1,20}]

Formula

a(n) = Numerator[ Product[ 1 - 1/(Prime[k]*(Prime[k]-1)), {k,1,n}]].

A119978 Denominator of the n-th Artin product.

Original entry on oeis.org

2, 12, 48, 2016, 221760, 6918912, 1881944064, 3079544832, 1558249684992, 1265298744213504, 7591792465281024, 919297051250393088, 36771882050015723520, 13282003796465679335424
Offset: 1

Views

Author

Alexander Adamchuk, Aug 03 2006

Keywords

Comments

Artin's constant (A005596) is equal to Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,Infinity}]. n-th Artin product is Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}].

Crossrefs

Programs

  • Mathematica
    Table[Denominator[Product[1-1/(Prime[k]*(Prime[k]-1)),{k,1,n}]],{n,1,20}]

Formula

a(n) = Denominator[ Product[ 1 - 1/(Prime[k]*(Prime[k]-1)), {k,1,n}]].
Showing 1-2 of 2 results.