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.

Previous Showing 31-40 of 113 results. Next

A291307 The arithmetic function v_6(n,2).

Original entry on oeis.org

0, 0, 1, 2, 0, 3, 3, 3, 4, 5, 3, 6, 6, 6, 7, 8, 6, 9, 9, 9, 10, 11, 9, 12, 12, 12, 13, 14, 12, 15, 15, 15, 16, 17, 15, 18, 18, 18, 19, 20, 18, 21, 21, 21, 22, 23, 21, 24, 24, 24, 25, 26, 24, 27, 27, 27, 28, 29, 27, 30, 30, 30, 31, 32, 30, 33, 33, 33, 34
Offset: 2

Views

Author

Robert Price, Aug 21 2017

Keywords

References

  • J. Butterworth, Examining the arithmetic function v_g(n,h). Research Papers in Mathematics, B. Bajnok, ed., Gettysburg College, Vol. 8 (2008).

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441.
Cf. A291306.

Programs

  • Maple
    seq((n-gcd(n,6))/2, n=2..80); # Ridouane Oudra, Jan 09 2025
  • Mathematica
    v[g_, n_, h_] := (d = Divisors[n]; Max[(Floor[(d - 1 - GCD[d, g])/h] + 1)*n/d]); Table[v[6, n, 2], {n, 2, 70}]

Formula

a(n) = (n-gcd(n,6))/2 = A291306(n)/2. - Ridouane Oudra, Jan 09 2025
Sum_{n>=7} (-1)^n/a(n) = Pi/(3*sqrt(3)) - 1/2. - Amiram Eldar, Jan 15 2025

A291308 The arithmetic function v_6(n,3).

Original entry on oeis.org

0, 0, 1, 2, 0, 2, 2, 2, 4, 4, 3, 4, 4, 6, 5, 6, 4, 6, 8, 6, 8, 8, 6, 10, 8, 8, 9, 10, 12, 10, 10, 12, 12, 14, 10, 12, 12, 12, 16, 14, 12, 14, 16, 18, 16, 16, 15, 16, 20, 18, 17, 18, 16, 22, 18, 18, 20, 20, 24, 20, 20, 20, 21, 26, 24, 22, 24, 24, 28
Offset: 2

Views

Author

Robert Price, Aug 21 2017

Keywords

References

  • J. Butterworth, Examining the arithmetic function v_g(n,h). Research Papers in Mathematics, B. Bajnok, ed., Gettysburg College, Vol. 8 (2008).

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441.

Programs

  • Mathematica
    v[g_, n_, h_] := (d = Divisors[n]; Max[(Floor[(d - 1 - GCD[d, g])/h] + 1)*n/d]); Table[v[6, n, 3], {n, 2, 70}]

A291309 The arithmetic function v_6(n,4).

Original entry on oeis.org

0, 0, 1, 1, 0, 2, 2, 2, 2, 3, 3, 3, 4, 3, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 6, 6, 8, 7, 6, 8, 8, 9, 8, 10, 9, 9, 10, 9, 10, 10, 12, 11, 12, 11, 12, 12, 12, 14, 12, 12, 13, 13, 12, 15, 16, 15, 14, 15, 15, 15, 16, 18, 16, 16, 18, 17, 17, 18, 20
Offset: 2

Views

Author

Robert Price, Aug 21 2017

Keywords

References

  • J. Butterworth, Examining the arithmetic function v_g(n,h). Research Papers in Mathematics, B. Bajnok, ed., Gettysburg College, Vol. 8 (2008).

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441.

Programs

  • Mathematica
    v[g_, n_, h_] := (d = Divisors[n]; Max[(Floor[(d - 1 - GCD[d, g])/h] + 1)*n/d]); Table[v[6, n, 4], {n, 2, 70}]

A291310 The arithmetic function v_6(n,5).

Original entry on oeis.org

0, 0, 1, 1, 0, 2, 2, 2, 2, 2, 3, 3, 4, 3, 4, 4, 4, 4, 5, 6, 4, 5, 6, 5, 6, 6, 8, 6, 6, 6, 8, 6, 8, 10, 9, 8, 8, 9, 10, 8, 12, 9, 11, 10, 10, 10, 12, 14, 10, 12, 13, 11, 12, 11, 16, 12, 12, 12, 15, 12, 12, 18, 16, 15, 12, 14, 17, 15, 20
Offset: 2

Views

Author

Robert Price, Aug 21 2017

Keywords

References

  • J. Butterworth, Examining the arithmetic function v_g(n,h). Research Papers in Mathematics, B. Bajnok, ed., Gettysburg College, Vol. 8 (2008).

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441.

Programs

  • Mathematica
    v[g_, n_, h_] := (d = Divisors[n]; Max[(Floor[(d - 1 - GCD[d, g])/h] + 1)*n/d]); Table[v[6, n, 5], {n, 2, 70}]

A291323 The arithmetic function v+-(n,4).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 3, 6, 3, 7, 5, 8, 3, 9, 5, 10, 7, 11, 5, 12, 5, 13, 9, 14, 7, 15, 7, 16, 11, 17, 9, 18, 9, 19, 13, 20, 9, 21, 11, 22, 15, 23, 11, 24, 11, 25, 17, 26, 13, 27, 15, 28, 19, 29, 15, 30, 15, 31, 21, 32, 15, 33, 17, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 4], {n, 2, 70}]

A291324 The arithmetic function v+-(n,5).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 3, 7, 5, 8, 3, 9, 3, 10, 7, 11, 5, 12, 5, 13, 9, 14, 5, 15, 5, 16, 11, 17, 7, 18, 7, 19, 13, 20, 7, 21, 9, 22, 15, 23, 9, 24, 9, 25, 17, 26, 11, 27, 11, 28, 19, 29, 11, 30, 11, 31, 21, 32, 15, 33, 13, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 5], {n, 2, 70}]

A291325 The arithmetic function v+-(n,6).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 3, 9, 3, 10, 7, 11, 3, 12, 5, 13, 9, 14, 5, 15, 5, 16, 11, 17, 7, 18, 5, 19, 13, 20, 7, 21, 7, 22, 15, 23, 7, 24, 7, 25, 17, 26, 9, 27, 11, 28, 19, 29, 9, 30, 9, 31, 21, 32, 13, 33, 11, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 6], {n, 2, 70}]

A291326 The arithmetic function v+-(n,7).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 3, 9, 3, 10, 7, 11, 3, 12, 5, 13, 9, 14, 3, 15, 5, 16, 11, 17, 7, 18, 5, 19, 13, 20, 5, 21, 5, 22, 15, 23, 7, 24, 7, 25, 17, 26, 7, 27, 11, 28, 19, 29, 9, 30, 9, 31, 21, 32, 13, 33, 9, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441. A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 7], {n, 2, 70}]

A291327 The arithmetic function v+-(n,8).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 1, 9, 3, 10, 7, 11, 3, 12, 5, 13, 9, 14, 3, 15, 3, 16, 11, 17, 7, 18, 5, 19, 13, 20, 5, 21, 5, 22, 15, 23, 5, 24, 7, 25, 17, 26, 7, 27, 11, 28, 19, 29, 7, 30, 7, 31, 21, 32, 13, 33, 9, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 8], {n, 2, 70}]

A291328 The arithmetic function v+-(n,9).

Original entry on oeis.org

1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 1, 9, 1, 10, 7, 11, 3, 12, 5, 13, 9, 14, 3, 15, 3, 16, 11, 17, 7, 18, 3, 19, 13, 20, 5, 21, 5, 22, 15, 23, 5, 24, 7, 25, 17, 26, 5, 27, 11, 28, 19, 29, 7, 30, 7, 31, 21, 32, 13, 33, 7, 34, 23, 35
Offset: 2

Views

Author

Robert Price, Aug 22 2017

Keywords

Links

Crossrefs

Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.

Programs

  • Mathematica
    vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 9], {n, 2, 70}]
Previous Showing 31-40 of 113 results. Next

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

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