login
Least k such that d(k*n) = k, or 0 if no such k exists (d = A000005).
1

%I #8 Jul 29 2016 08:41:44

%S 1,4,3,9,8,12,8,10,12,18,8,20,8,18,24,8,8,0,8,24,24,18,8,16,9,18,0,20,

%T 8,0,8,14,24,18,36,24,8,18,24,16,8,40,8,20,0,18,8,24,9,36,24,20,8,18,

%U 36,16,24,18,8,32,8,18,0,0,36,40,8,20,24,48

%N Least k such that d(k*n) = k, or 0 if no such k exists (d = A000005).

%e a(4) = 9 because A000005(9*4) = 9.

%t up[t_] := If[t < 15, 18, t^(1.066/Log[Log[t]])]; a[n_] := Catch@ Block[{k = 1}, While[ up[k*n]/k > 1, If[ DivisorSigma[0, k n] == k, Throw@ k, k++]]; 0]; Array[a, 70] (* _Giovanni Resta_, Jul 29 2016 *)

%Y Cf. A000005, A036763.

%K nonn

%O 1,2

%A _Altug Alkan_, Jul 29 2016