# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a353360 Showing 1-1 of 1 %I A353360 #6 Apr 20 2022 15:47:38 %S A353360 1,2,3,3,4,2,9,2,4,6,12,4,12,2,3,4,12,6,36,3,4,18,16,6,9,6,3,4,81,6, %T A353360 144,6,3,18,4,3,324,24,12,6,432,6,108,3,9,24,576,3,12,2,12,12,11664,6, %U A353360 9,6,48,6,972,9,3888,216,4,3,4,6,1728,12,12,8,8748,6,5184,162,4,48,9,18,34992,9,9,648,15552,4,36,72 %N A353360 a(n) = A006047(A048675(n)). %H A353360 Index entries for sequences computed from indices in prime factorization %F A353360 a(n) = A006047(A048675(n)). %o A353360 (PARI) %o A353360 A006047(n) = { my(m=1, d); while(n, d = (n%3); m *= (1+d); n = (n-d)/3); m; }; %o A353360 A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; }; %o A353360 A353360(n) = A006047(A048675(n)); %Y A353360 Cf. A006047, A048675. %Y A353360 Cf. also A332813, A332823 and A353330. %K A353360 nonn %O A353360 1,2 %A A353360 _Antti Karttunen_, Apr 20 2022 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE