|
%I #7 Nov 04 2023 14:00:33
%S 1,1,1,4,1,12,4,6,1,36,12,30,4,24,6,8,1,108,36,150,12,120,30,56,4,72,
%T 24,48,6,32,8,12,1,324,108,750,36,600,150,392,12,360,120,336,30,224,
%U 56,132,4,216,72,240,24,192,48,96,6,96,32,72,8,48,12,14,1,972,324,3750,108,3000,750,2744,36,1800,600,2352
%N Dedekind psi function applied to the odd part of n, permuted by A163511: a(n) = A347385(A163511(n)).
%H Antti Karttunen, <a href="/A366885/b366885.txt">Table of n, a(n) for n = 0..16384</a>
%o (PARI)
%o A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
%o A347385(n) = if(1==n,n, my(f=factor(n>>valuation(n, 2))); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1)));
%o A366885(n) = A347385(A163511(n));
%Y Cf. A001615, A163511, A347385, A366886 (rgs-transform).
%Y Cf. also A324186.
%K nonn
%O 0,4
%A _Antti Karttunen_, Nov 04 2023
|
