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 51-60 of 113 results. Next

A291426 The arithmetic function u(n,4,5).

Original entry on oeis.org

16, 12, 16, 4, 5, 6, 7, 4, 9, 5, 11, 4, 13, 7, 5, 4, 16, 6, 16, 4, 7, 11, 16, 4, 5, 12, 9, 4, 16, 5, 16, 4, 11, 12, 5, 4, 16, 12, 13, 4, 16, 6, 16, 4, 5, 12, 16, 4, 7, 5, 16, 4, 16, 6, 5, 4, 16, 12, 16, 4, 16, 12, 7, 4, 5, 6, 16, 4, 16, 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, 5], {n, 1, 70}]

A291427 The arithmetic function u(n,4,6).

Original entry on oeis.org

19, 14, 19, 4, 5, 6, 7, 4, 9, 5, 11, 4, 13, 7, 5, 4, 17, 6, 19, 4, 7, 11, 19, 4, 5, 13, 9, 4, 19, 5, 19, 4, 11, 14, 5, 4, 19, 14, 13, 4, 19, 6, 19, 4, 5, 14, 19, 4, 7, 5, 17, 4, 19, 6, 5, 4, 19, 14, 19, 4, 19, 14, 7, 4, 5, 6, 19, 4, 19, 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, 6], {n, 1, 70}]

A291428 The arithmetic function u(n,4,7).

Original entry on oeis.org

22, 16, 22, 4, 5, 6, 7, 4, 9, 5, 11, 4, 13, 7, 5, 4, 17, 6, 19, 4, 7, 11, 22, 4, 5, 13, 9, 4, 22, 5, 22, 4, 11, 16, 5, 4, 22, 16, 13, 4, 22, 6, 22, 4, 5, 16, 22, 4, 7, 5, 17, 4, 22, 6, 5, 4, 19, 16, 22, 4, 22, 16, 7, 4, 5, 6, 22, 4, 22, 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, 7], {n, 1, 70}]

A291429 The arithmetic function u(n,4,8).

Original entry on oeis.org

25, 18, 25, 4, 5, 6, 7, 4, 9, 5, 11, 4, 13, 7, 5, 4, 17, 6, 19, 4, 7, 11, 23, 4, 5, 13, 9, 4, 25, 5, 25, 4, 11, 17, 5, 4, 25, 18, 13, 4, 25, 6, 25, 4, 5, 18, 25, 4, 7, 5, 17, 4, 25, 6, 5, 4, 19, 18, 25, 4, 25, 18, 7, 4, 5, 6, 25, 4, 23, 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, 8], {n, 1, 70}]

A291430 The arithmetic function u(n,5,2).

Original entry on oeis.org

9, 9, 9, 9, 5, 6, 7, 8, 9, 5, 9, 6, 9, 7, 5, 8, 9, 6, 9, 5, 7, 9, 9, 6, 5, 9, 9, 7, 9, 5, 9, 8, 9, 9, 5, 6, 9, 9, 9, 5, 9, 6, 9, 9, 5, 9, 9, 6, 7, 5, 9, 9, 9, 6, 5, 7, 9, 9, 9, 5, 9, 9, 7, 8, 5, 6, 9, 9, 9, 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, 5, 2], {n, 1, 70}]

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

Original entry on oeis.org

13, 13, 12, 13, 5, 6, 7, 8, 9, 5, 11, 6, 13, 7, 5, 8, 13, 6, 13, 5, 7, 11, 13, 6, 5, 13, 9, 7, 13, 5, 13, 8, 11, 13, 5, 6, 13, 13, 12, 5, 13, 6, 13, 11, 5, 13, 13, 6, 7, 5, 12, 13, 13, 6, 5, 7, 12, 13, 13, 5, 13, 13, 7, 8, 5, 6, 13, 13, 12, 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, 5, 3], {n, 1, 70}]

A291432 The arithmetic function u(n,5,4).

Original entry on oeis.org

17, 17, 15, 17, 5, 6, 7, 8, 9, 5, 11, 6, 13, 7, 5, 8, 17, 6, 17, 5, 7, 11, 17, 6, 5, 13, 9, 7, 17, 5, 17, 8, 11, 17, 5, 6, 17, 17, 13, 5, 17, 6, 17, 11, 5, 17, 17, 6, 7, 5, 15, 13, 17, 6, 5, 7, 15, 17, 17, 5, 17, 17, 7, 8, 5, 6, 17, 17, 15, 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, 5, 4], {n, 1, 70}]

A291433 The arithmetic function u(n,5,5).

Original entry on oeis.org

21, 21, 18, 21, 5, 6, 7, 8, 9, 5, 11, 6, 13, 7, 5, 8, 17, 6, 19, 5, 7, 11, 21, 6, 5, 13, 9, 7, 21, 5, 21, 8, 11, 17, 5, 6, 21, 19, 13, 5, 21, 6, 21, 11, 5, 21, 21, 6, 7, 5, 17, 13, 21, 6, 5, 7, 18, 21, 21, 5, 21, 21, 7, 8, 5, 6, 21, 17, 18, 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, 5, 5], {n, 1, 70}]

A291434 The arithmetic function u(n,5,6).

Original entry on oeis.org

25, 25, 21, 25, 5, 6, 7, 8, 9, 5, 11, 6, 13, 7, 5, 8, 17, 6, 19, 5, 7, 11, 23, 6, 5, 13, 9, 7, 25, 5, 25, 8, 11, 17, 5, 6, 25, 19, 13, 5, 25, 6, 25, 11, 5, 23, 25, 6, 7, 5, 17, 13, 25, 6, 5, 7, 19, 25, 25, 5, 25, 25, 7, 8, 5, 6, 25, 17, 21, 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, 5, 6], {n, 1, 70}]

A291435 The arithmetic function u(n,5,7).

Original entry on oeis.org

29, 29, 24, 29, 5, 6, 7, 8, 9, 5, 11, 6, 13, 7, 5, 8, 17, 6, 19, 5, 7, 11, 23, 6, 5, 13, 9, 7, 29, 5, 29, 8, 11, 17, 5, 6, 29, 19, 13, 5, 29, 6, 29, 11, 5, 23, 29, 6, 7, 5, 17, 13, 29, 6, 5, 7, 19, 29, 29, 5, 29, 29, 7, 8, 5, 6, 29, 17, 23, 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, 5, 7], {n, 1, 70}]
Previous Showing 51-60 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.