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

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

Author

Robert Price, Aug 23 2017

Keywords

• nonn

Links

• Bela Bajnok, Additive Combinatorics: A Menu of Research Problems, arXiv:1705.07444 [math.NT], May 2017. See Table in Section 1.6.3.

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 *)