OFFSET
1,3
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
Let n=3, prime(n)=5. In the interval [5,10] we have 3 numbers {6,8,10} with maximal number of divisors in this interval (4). So, a(3)=3.
MATHEMATICA
a[n_] := Tally[Sort@ DivisorSigma[0, Range[#, 2 #]&@ Prime@n]][[-1, 2]]; Array[a, 87] (* Giovanni Resta, May 08 2016 *)
PROG
(PARI) a(n) = {my(nb = 2*prime(n) - prime(n) + 1); my(vd = vector(nb, i, numdiv(prime(n)+i-1))); my(vmax = vecmax(vd)); #select(x->x == vmax, vd); } \\ Michel Marcus, May 09 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, May 08 2016
EXTENSIONS
More terms from Peter J. C. Moses, May 08 2016
STATUS
approved