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

6, 2, 3, 2, 5, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 6, 2, 3, 2, 5, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 6, 2, 3, 2, 5, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 6, 2, 3, 2, 5, 2, 6, 2, 3, 2, 6, 2, 6, 2, 3

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

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

Mathematica

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

Prog

(PARI) A291359(n, m=2, h=5) = { my(p=0, k); fordiv(n, d, k = d*(h*ceil(m/d) - h + 1); if(!p || (k < p), p = k)); (p); }; \\ Antti Karttunen, Oct 01 2018

Crossrefs

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

Sequence in context: A155527 A196525 A300892 * A055942 A127916 A165063

Adjacent sequences: A291356 A291357 A291358 * A291360 A291361 A291362

Keyword

nonn

Author

Robert Price, Aug 23 2017

Extensions

More terms from Antti Karttunen, Oct 01 2018

Status

approved