OFFSET
0,4
COMMENTS
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, Springer 2013, sec. A17.
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
Conjecture: a(n) = tau(n) + tau(n-1) - 2, for n>=2. - Ridouane Oudra, Feb 28 2020
EXAMPLE
For n = 6, the values of m are 2,3,5,6 so a(6) = 4.
MAPLE
N:= 1000: # to get a(0) to a(N)
A:= Vector(N):
for m from 2 to N do
L:= [seq(seq(k*m+j, j=0..1), k=1..N/m)];
if L[-1] > N then L:= L[1..-2] fi;
A[L]:= map(`+`, A[L], 1);
od:
0, seq(A[i], i=1..N);
MATHEMATICA
a[n_] := Sum[Boole[Divisible[Floor[n(m-1)/m], m-1]], {m, 2, n}];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Apr 29 2019 *)
PROG
(PARI) a(n)=sum(m=2, n, n*(m-1)\m%(m-1)==0) \\ Charles R Greathouse IV, Jun 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Jun 06 2016
STATUS
approved