Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Jul 20 2020 02:08:26
%S 1,2,1,2,1,2,1,4,3,2,1,6,1,2,2,4,1,6,1,2,2,2,1,8,5,2,6,2,1,4,1,8,2,2,
%T 2,18,1,2,2,8,1,4,1,2,3,2,1,4,7,10,2,2,1,12,2,8,2,2,1,12,1,2,3,8,2,4,
%U 1,2,2,4,1,12,1,2,15,2,2,4,1,20,9,2,1,12,2,2,2,8,1,6
%N Square root of the largest square dividing n*d(n), where d(n) is the number of divisors of n, A000005.
%H Antti Karttunen, <a href="/A336318/b336318.txt">Table of n, a(n) for n = 1..10000</a>
%H Antti Karttunen, <a href="/A336318/a336318.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F a(n) = A000188(A038040(n)) = A000188(n*A000005(n)).
%F a(n) = A000196(A038040(n)/A336319(n)).
%o (PARI)
%o A000188(n) = core(n, 1)[2]; \\ From A000188
%o A336318(n) = A000188(n*numdiv(n));
%Y Cf. A000005, A000188, A000196, A038040, A336319.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jul 19 2020