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 41-50 of 113 results. Next

A291329 The arithmetic function v+-(n,10).

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, 3, 21, 5, 22, 15, 23, 5, 24, 7, 25, 17, 26, 5, 27, 11, 28, 19, 29, 5, 30, 5, 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, 10], {n, 2, 70}]

A291364 The arithmetic function u(n,3,3).

Original entry on oeis.org

7, 7, 3, 4, 5, 3, 7, 4, 3, 5, 7, 3, 7, 7, 3, 4, 7, 3, 7, 4, 3, 7, 7, 3, 5, 7, 3, 4, 7, 3, 7, 4, 3, 7, 5, 3, 7, 7, 3, 4, 7, 3, 7, 4, 3, 7, 7, 3, 7, 5, 3, 4, 7, 3, 5, 4, 3, 7, 7, 3, 7, 7, 3, 4, 5, 3, 7, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 3], {n, 1, 70}]

A291366 The arithmetic function u(n,3,4).

Original entry on oeis.org

9, 9, 3, 4, 5, 3, 7, 4, 3, 5, 9, 3, 9, 7, 3, 4, 9, 3, 9, 4, 3, 9, 9, 3, 5, 9, 3, 4, 9, 3, 9, 4, 3, 9, 5, 3, 9, 9, 3, 4, 9, 3, 9, 4, 3, 9, 9, 3, 7, 5, 3, 4, 9, 3, 5, 4, 3, 9, 9, 3, 9, 9, 3, 4, 5, 3, 9, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 4], {n, 1, 70}]

A291367 The arithmetic function u(n,3,5).

Original entry on oeis.org

11, 11, 3, 4, 5, 3, 7, 4, 3, 5, 11, 3, 11, 7, 3, 4, 11, 3, 11, 4, 3, 11, 11, 3, 5, 11, 3, 4, 11, 3, 11, 4, 3, 11, 5, 3, 11, 11, 3, 4, 11, 3, 11, 4, 3, 11, 11, 3, 7, 5, 3, 4, 11, 3, 5, 4, 3, 11, 11, 3, 11, 11, 3, 4, 5, 3, 11, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 5], {n, 1, 70}]

A291368 The arithmetic function u(n,3,6).

Original entry on oeis.org

13, 13, 3, 4, 5, 3, 7, 4, 3, 5, 11, 3, 13, 7, 3, 4, 13, 3, 13, 4, 3, 11, 13, 3, 5, 13, 3, 4, 13, 3, 13, 4, 3, 13, 5, 3, 13, 13, 3, 4, 13, 3, 13, 4, 3, 13, 13, 3, 7, 5, 3, 4, 13, 3, 5, 4, 3, 13, 13, 3, 13, 13, 3, 4, 5, 3, 13, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 6], {n, 1, 70}]

A291369 The arithmetic function u(n,3,7).

Original entry on oeis.org

15, 15, 3, 4, 5, 3, 7, 4, 3, 5, 11, 3, 13, 7, 3, 4, 15, 3, 15, 4, 3, 11, 15, 3, 5, 13, 3, 4, 15, 3, 15, 4, 3, 15, 5, 3, 15, 15, 3, 4, 15, 3, 15, 4, 3, 15, 15, 3, 7, 5, 3, 4, 15, 3, 5, 4, 3, 15, 15, 3, 15, 15, 3, 4, 5, 3, 15, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 7], {n, 1, 70}]

A291370 The arithmetic function u(n,3,8).

Original entry on oeis.org

17, 17, 3, 4, 5, 3, 7, 4, 3, 5, 11, 3, 13, 7, 3, 4, 17, 3, 17, 4, 3, 11, 17, 3, 5, 13, 3, 4, 17, 3, 17, 4, 3, 17, 5, 3, 17, 17, 3, 4, 17, 3, 17, 4, 3, 17, 17, 3, 7, 5, 3, 4, 17, 3, 5, 4, 3, 17, 17, 3, 17, 17, 3, 4, 5, 3, 17, 4, 3, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 3, 8], {n, 1, 70}]

A291423 The arithmetic function u(n,4,2).

Original entry on oeis.org

7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5, 7, 4, 7, 6, 5, 4, 7, 6, 7, 4, 7, 6, 7, 4, 5, 6, 7, 4, 7, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 4, 2], {n, 1, 70}]
Table[With[{c=Divisors[n]},Min[(2*Ceiling[4/c]-1)*c]],{n,100}] (* Harvey P. Dale, Feb 10 2019 *)

A291424 The arithmetic function u(n,4,3).

Original entry on oeis.org

10, 8, 10, 4, 5, 6, 7, 4, 9, 5, 10, 4, 10, 7, 5, 4, 10, 6, 10, 4, 7, 8, 10, 4, 5, 8, 9, 4, 10, 5, 10, 4, 10, 8, 5, 4, 10, 8, 10, 4, 10, 6, 10, 4, 5, 8, 10, 4, 7, 5, 10, 4, 10, 6, 5, 4, 10, 8, 10, 4, 10, 8, 7, 4, 5, 6, 10, 4, 10, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 4, 3], {n, 1, 70}]

A291425 The arithmetic function u(n,4,4).

Original entry on oeis.org

13, 10, 13, 4, 5, 6, 7, 4, 9, 5, 11, 4, 13, 7, 5, 4, 13, 6, 13, 4, 7, 10, 13, 4, 5, 10, 9, 4, 13, 5, 13, 4, 11, 10, 5, 4, 13, 10, 13, 4, 13, 6, 13, 4, 5, 10, 13, 4, 7, 5, 13, 4, 13, 6, 5, 4, 13, 10, 13, 4, 13, 10, 7, 4, 5, 6, 13, 4, 13, 5
Offset: 1

Views

Author

Robert Price, Aug 23 2017

Keywords

Links

Crossrefs

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

Programs

  • Mathematica
    u[n_, m_, h_] := (d = Divisors[n]; Min[(h*Ceiling[m/d] - h + 1)*d]); Table[u[n, 4, 4], {n, 1, 70}]
Previous Showing 41-50 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.