OFFSET
1,1
COMMENTS
There are infinitely many 1's in this sequence. See comments section of A005237.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
FORMULA
a(A005237(n)) = 1.
MAPLE
f:= proc(n)
local k;
for k from 1 do if numtheory:-tau(n*k) = numtheory:-tau(n*k+1) then return k fi od:
end proc:
map(f, [$1..100]); # Robert Israel, Aug 01 2016
PROG
(PARI) a(n) = {my(k = 1); while (numdiv(k*n) != numdiv(k*n+1), k++); k; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Jul 27 2016
STATUS
approved