|
%I #8 Feb 19 2019 00:09:45
%S 0,1,1,2,2,4,4,6,2,6,8,10,16,16,4,8,32,12,64,18,6,20,128,22,4,48,6,24,
%T 256,12,512,30,16,84,8,18,1024,256,20,24,2048,36,4096,66,10,324,8192,
%U 46,8,20,48,130,16384,28,12,70,84,800,32768,42,65536,1364,18,36,32,44,131072,216,256,40,262144,40,524288,3840,12,408,16,108
%N a(1) = 0; for n > 1, a(n) = A000010(A156552(n)).
%H Antti Karttunen, <a href="/A324104/b324104.txt">Table of n, a(n) for n = 1..2997</a>
%o (PARI)
%o A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
%o A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n))));
%o A324104(n) = if(1==n,0,eulerphi(A156552(n)));
%Y Cf. A000010, A156552, A324103.
%Y Cf. also A323243, A324105 (sigma and tau similarly permuted).
%K nonn
%O 1,4
%A _Antti Karttunen_, Feb 18 2019
|
