%I #6 May 13 2020 18:59:29
%S 0,0,0,1,0,2,0,2,2,3,0,3,0,4,3,3,0,4,0,4,4,5,0,4,3,5,4,5,0,5,0,4,5,5,
%T 4,5,0,6,5,5,0,6,0,6,5,7,0,5,4,6,5,6,0,6,5,6,6,7,0,6,0,7,6,5,5,7,0,6,
%U 7,7,0,6,0,7,6,7,5,7,0,6,6,7,0,7,5,8,7,7,0,7,5,8,7,9,6,6,0,8,7,7,0,7,0,7,7
%N a(n) = A064097(A032742(n)).
%H Antti Karttunen, <a href="/A334203/b334203.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = A064097(A032742(n)) = A064097(n/A020639(n)).
%o (PARI)
%o A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));
%o A060681(n) = (n-if(1==n,n,n/vecmin(factor(n)[,1])));
%o A064097(n) = if(1==n,0,1+A064097(A060681(n)));
%o A334203(n) = A064097(A032742(n));
%Y Cf. A020639, A032742, A060681, A064097, A323077.
%K nonn
%O 1,6
%A _Antti Karttunen_, May 13 2020