OFFSET
6,1
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 6..10005
MAPLE
A225867 := proc(n)
local a, k, nd ;
a := 0 ;
for k from 2 to n/2-1 do
nd := 0 ;
for d in numtheory[divisors](n+k) minus {1} do
if modp(n+d, k) = 0 then
nd := nd+1;
end if;
end do:
a := max(a, nd) ;
end do:
a ;
end proc: # R. J. Mathar, Jul 04 2013
MATHEMATICA
Table[Max[Map[Count[(n+Rest[Divisors[n+#]])/#, _Integer]&, Range[2, Floor[(n-2)/2]]]], {n, 6, 105}] (* Peter J. C. Moses, Jun 27 2013 *)
PROG
(PARI) a(n)=my(t); for(k=2, n\2-1, t=max(sumdiv(n+k, d, (n+d)%k==0 && d>1), t)); t \\ Charles R Greathouse IV, Nov 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, May 18 2013
EXTENSIONS
Extended from a(14) by Peter J. C. Moses, May 18 2013
STATUS
approved