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 A329601 #21 Oct 02 2023 20:53:06
%S A329601 1,2,2,3,2,2,2,5,3,2,2,6,2,2,2,7,2,6,2,6,2,2,2,10,3,2,5,6,2,2,2,11,2,
%T A329601 2,2,3,2,2,2,10,2,2,2,6,6,2,2,14,3,6,2,6,2,10,2,10,2,2,2,6,2,2,6,13,2,
%U A329601 2,2,6,2,2,2,15,2,2,6,6,2,2,2,14,7,2,2,6,2,2,2,10,2,6,2,6,2,2,2,22,2,6
%N A329601 The squarefree kernel of Product prime(e(i)), when n = Product prime(i)^e(i).
%H A329601 Antti Karttunen, <a href="/A329601/b329601.txt">Table of n, a(n) for n = 1..20000</a>
%H A329601 Antti Karttunen, <a href="/A329601/a329601.txt">Data supplement: n, a(n) computed for n = 1..100000</a>
%H A329601 <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>
%F A329601 a(n) = A007947(A181819(n)).
%F A329601 a(n) = A181819(A328400(n)), A181821(a(n)) = A328400(n).
%F A329601 a(A108951(n)) = A329607(n).
%F A329601 a(n) = A019565(A297404(n)). - _Peter Munn_, Oct 02 2023
%o A329601 (PARI)
%o A329601 A007947(n) = factorback(factorint(n)[, 1]);
%o A329601 A181819(n) = {my(f=factor(n)); prod(k=1, #f~, prime(f[k, 2])); }; \\ From A181819
%o A329601 A329601(n) = A007947(A181819(n));
%Y A329601 Cf. A007947, A019565, A108951, A181819, A181821, A297404, A328400, A329607.
%K A329601 nonn
%O A329601 1,2
%A A329601 _Antti Karttunen_, Nov 19 2019