|
%I #7 May 13 2020 18:59:20
%S 0,1,2,1,3,2,4,1,2,3,5,2,5,4,3,1,5,2,6,3,4,5,7,2,3,5,2,4,7,3,7,1,5,5,
%T 4,2,7,6,5,3,7,4,8,5,3,7,9,2,4,3,5,5,8,2,5,4,6,7,9,3,8,7,4,1,5,5,9,5,
%U 7,4,9,2,8,7,3,6,5,5,9,3,2,7,9,4,5,8,7,5,9,3,5,7,7,9,6,2,8,4,5,3,9,5,9,5,4
%N a(n) = A064097(n) - A323077(n).
%C a(A122111(n)) differs from A001222(n) for the first time at n=64.
%H Antti Karttunen, <a href="/A334202/b334202.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = A064097(n) - A323077(n).
%F a(n) = A064097(A006530(n)).
%o (PARI)
%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 A323077(n) = if(1>=bigomega(n),0,1+A323077(A060681(n)));
%o A334202(n) = (A064097(n)-A323077(n));
%o (PARI)
%o A006530(n) = if(n>1, vecmax(factor(n)[, 1]), 1);
%o A334202(n) = A064097(A006530(n));
%Y Cf. A006530, A060681, A064097, A323077.
%K nonn
%O 1,3
%A _Antti Karttunen_, May 11 2020
|
