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 A147661 #13 Nov 01 2022 07:13:16
%S A147661 1,1,3,1,5,1,7,1,1,1,11,1,13,1,15,1,17,1,19,1,21,1,23,1,1,1,3,1,29,1,
%T A147661 31,1,33,1,35,1,37,1,39,1,41,1,43,1,5,1,47,1,1,1,51,1,53,1,55,1,57,1,
%U A147661 59,1,61,1,7,1,65,1,67,1,69,1,71,1,73,1,3,1,77,1,79,1,1,1,83,1,85,1,87,1,89
%N A147661 a(n) = squarefree part of n^n.
%H A147661 Alois P. Heinz, <a href="/A147661/b147661.txt">Table of n, a(n) for n = 1..10000</a>
%F A147661 a(n) = A007913(A000312(n)). - _Michel Marcus_, Nov 01 2022
%t A147661 data = Table[Sqrt[n^n], {n, 1, 200}]; sp = data /. Sqrt[_] -> 1; sfp = data/sp /. Sqrt[x_] -> x
%o A147661 (PARI) a(n) = core(n^n); \\ _Michel Marcus_, Nov 01 2022
%Y A147661 Cf. A000312, A007913, A055204, A147662.
%K A147661 nonn
%O A147661 1,3
%A A147661 _Artur Jasinski_, Nov 09 2008