cp's OEIS Frontend

A334202 a(n) = A064097(n) - A323077(n).

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