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 A354203 #5 May 23 2022 17:45:49 %S A354203 1,1,1,1,2,1,3,1,1,2,7,1,5,3,2,1,13,1,11,2,3,7,19,1,4,5,1,3,17,2,23,1, %T A354203 7,13,6,1,29,11,5,2,37,3,31,7,2,19,43,1,9,4,13,5,41,1,14,3,11,17,47,2, %U A354203 53,23,3,1,10,7,59,13,19,6,67,1,61,29,4,11,21,5,71,2,1,37,79,3,26,31,17,7,73,2,15,19,23 %N A354203 Fully multiplicative with a(p^e) = A354201(A000720(p))^e. %H A354203 <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a> %o A354203 (PARI) %o A354203 A354201(n) = if(n<=3,(n+1)\2,my(m=prime(n)%4); forstep(i=n-1,0,-1,if(m==(prime(i)%4),return(prime(i))))); %o A354203 A354203(n) = { my(f=factor(n)); for(k=1,#f~,f[k,1] = A354201(primepi(f[k,1]))); factorback(f); }; %Y A354203 Left inverse of A354202. %Y A354203 Cf. A354201, A354206. %K A354203 nonn,mult %O A354203 1,5 %A A354203 _Antti Karttunen_, May 23 2022