%I #14 Jan 09 2022 09:58:23
%S 0,-1,2,0,4,-1,6,2,8,3,10,-1,12,5,14,6,16,3,18,8,20,9,22,2,24,11,26,
%T 12,28,7,30,14,32,15,34,5,36,17,38,18,40,11,42,20,44,21,46,8,48,23,50,
%U 24,52,15,54,26,56,27,58,4,60,29,62,30,64,19,66,32,68,33,70,14,72,35,74
%N a(n) = n/A055874(n) - A055874(n).
%H Michel Marcus, <a href="/A350576/b350576.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A350509(n) - A055874(n).
%F a(n) = n-1 if n is odd.
%t a[n_] := Module[{k = 1}, While[Divisible[n, k], k++]; k--; n/k - k]; Array[a, 100] (* _Amiram Eldar_, Jan 07 2022 *)
%o (PARI) a4(n) = my(m=1); while ((n % m) == 0, m++); m - 1; \\ A055874
%o a(n) = my(x=a4(n)); n/x - x;
%o (Python)
%o def a(n):
%o m = 2
%o while n%m == 0: m += 1
%o return n//(m-1) - (m-1)
%o print([a(n) for n in range(1, 76)]) # _Michael S. Branicky_, Jan 07 2022
%Y Cf. A055874, A350509.
%Y Cf. A005408 (odd numbers), A056737 (another difference n/d-d).
%K sign
%O 1,3
%A _Michel Marcus_, Jan 07 2022, after a suggestion from _Charles Kusniec_