|
%I #15 Mar 10 2024 04:01:45
%S 1,2,1,3,2,5,6,3,4,8,9,6,5,11,6,14,4,15,10,8,12,18,9,12,20,6,21,11,23,
%T 16,26,20,18,14,29,30,15,24,10,33,22,12,35,36,18,30,12,39,20,41,32,21,
%U 28,44,36,30,23,36,48,50,16,51,24,26,53,54,20,36,56,18,44,29,48,30,40
%N a(n) = H(A005117(n)) where H(n) is the half-totient function and A005117(n) are the squarefree numbers.
%H Amiram Eldar, <a href="/A062951/b062951.txt">Table of n, a(n) for n = 3..10002</a>
%F a(n) = A023022(A005117(n)). - _Amiram Eldar_, Mar 10 2024
%t EulerPhi[Select[Range[3, 150], SquareFreeQ]]/2 (* _Amiram Eldar_, Mar 10 2024 *)
%o (PARI) H(n) = eulerphi(n)/2;
%o j=[]; for(n = 3, 200, if(issquarefree(n), j = concat(j, H(n)))); j
%Y Cf. A023022, A005117.
%K nonn
%O 3,2
%A _Jason Earls_, Jul 21 2001
|
