%I #14 Jan 03 2022 11:08:22
%S 1,1,3,2,5,2,7,4,9,5,11,3,13,7,15,8,17,6,19,10,21,11,23,6,25,13,27,14,
%T 29,10,31,16,33,17,35,9,37,19,39,20,41,14,43,22,45,23,47,12,49,25,51,
%U 26,53,18,55,28,57,29,59,10,61,31,63,32,65,22,67,34,69,35,71,18,73,37,75
%N a(n) = n/A055874(n).
%H Michel Marcus, <a href="/A350509/b350509.txt">Table of n, a(n) for n = 1..10000</a>
%t a[n_] := Module[{k = 1}, While[Divisible[n, k], k++]; k--; n/k]; Array[a, 100] (* _Amiram Eldar_, Jan 02 2022 *)
%o (PARI) a(n) = my(m = 1); while ((n % m) == 0, m++); n/(m-1);
%o (Python)
%o def a(n):
%o m = 2
%o while n%m == 0: m += 1
%o return n//(m-1)
%o print([a(n) for n in range(1, 80)]) # _Michael S. Branicky_, Jan 02 2022
%Y Cf. A055874.
%K nonn
%O 1,3
%A _Michel Marcus_, Jan 02 2022, after a suggestion from _Charles Kusniec_