|
%I #4 Aug 23 2017 09:43:15
%S 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,
%T 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,
%U 29,11,30,11,31,21,32,15,33,13,34,23,35
%N The arithmetic function v+-(n,5).
%H Bela Bajnok, <a href="https://arxiv.org/abs/1705.07444">Additive Combinatorics: A Menu of Research Problems</a>, arXiv:1705.07444 [math.NT], May 2017. See Section 1.6.2.
%t vpm[n_, h_] := (d = Divisors[n]; Max[(2*Floor[(d - 2)/(2*h)] + 1)*n/d]); Table[vpm[n, 5], {n, 2, 70}]
%Y Cf. A289435, A289436, A289437, A289438, A289439, A289440, A289441, A290988.
%K nonn
%O 2,3
%A _Robert Price_, Aug 22 2017
|
