This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A351092 #8 Jan 31 2022 18:11:27 %S A351092 1,1,1,1,2,1,3,1,1,2,2,1,1,3,6,1,6,1,5,2,15,2,10,1,30,1,1,3,2,6,1,1,6, %T A351092 6,36,1,1,5,1,2,2,15,3,2,30,10,10,1,15,30,90,1,30,1,28,3,35,2,14,6,21, %U A351092 1,105,1,28,6,7,6,210,36,42,1,35,1,3150,5,420,1,105,2,1,2,2,15,12,3,6,2,6,30,3,10,1,10 %N A351092 a(n) = Product_{d|A000265(n)} A019565(A289814(d)); a product obtained from the 2-digits present in ternary expansions of the odd divisors of n. %F A351092 a(n) = A351082(A000265(n)). %o A351092 (PARI) %o A351092 A019565(n) = { my(m=1, p=1); while(n>0, p = nextprime(1+p); if(n%2, m *= p); n >>= 1); (m); }; %o A351092 A289814(n) = { my(d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); }; %o A351092 A351092(n) = { my(m=1); fordiv(n>>valuation(n,2),d,m *= A019565(A289814(d))); (m); }; %Y A351092 Cf. A000265, A019565, A289814, A351082, A351091, A351094 (rgs-transform). %K A351092 nonn,easy %O A351092 1,5 %A A351092 _Antti Karttunen_, Jan 31 2022