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 A348969 #4 Nov 09 2021 18:40:04
%S A348969 1,1,1,1,1,3,1,1,1,1,1,2,1,2,3,1,1,1,1,1,1,1,1,3,1,1,1,28,1,3,1,1,3,1,
%T A348969 1,1,1,1,1,5,1,6,1,2,1,2,1,2,1,1,3,1,1,3,1,1,1,1,1,2,1,2,1,1,1,6,1,1,
%U A348969 3,2,1,1,1,1,1,2,1,3,1,1,1,1,1,28,1,1,3,1,1,3,7,4,1,2,5,3,1,1,1,1,1,3,1,1,3
%N A348969 a(n) = n / gcd(n, A099377(n)).
%F A348969 a(n) = n / A348968(n) = n / gcd(n, A099377(n)).
%o A348969 (PARI)
%o A348969 A003961(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
%o A348969 A099377(n) = { my(d=divisors(n)); numerator(#d/sum(k=1, #d, 1/d[k])); }; \\ From A099377
%o A348969 A348969(n) = (n / gcd(n, A099377(n)));
%Y A348969 Cf. A057021, A099377, A348510, A348968.
%K A348969 nonn
%O A348969 1,6
%A A348969 _Antti Karttunen_, Nov 05 2021