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 A366892 #6 Nov 04 2023 14:00:50 %S A366892 1,1,1,3,1,12,3,5,1,39,12,30,3,15,5,7,1,120,39,155,12,90,30,56,3,60, %T A366892 15,35,5,21,7,11,1,363,120,780,39,465,155,399,12,360,90,280,30,168,56, %U A366892 132,3,195,60,210,15,105,35,77,5,84,21,55,7,33,11,13,1,1092,363,3905,120,2340,780,2800,39,1860,465,1995 %N A366892 a(n) = A336652(A163511(n)). %H A366892 Antti Karttunen, <a href="/A366892/b366892.txt">Table of n, a(n) for n = 0..16384</a> %o A366892 (PARI) %o A366892 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 A366892 A336652(n) = if(1==n,n,my(f=factor(n)); prod(i=1,#f~,if(2==f[i,1],1,-1+(((f[i,1]^(1+f[i,2]))-1) / (f[i,1]-1))))); %o A366892 A366892(n) = A336652(A163511(n)); %Y A366892 Cf. A163511, A336652, A366893 (rgs-transform). %Y A366892 Cf. also A324186. %K A366892 nonn %O A366892 0,4 %A A366892 _Antti Karttunen_, Nov 04 2023